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PART I 


PROBLEM 
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PROBLEM DESCRIPTION FOR EPHEM PROGRAM 


1.0 SCOPE 


1.1 PROGRAM CAPABILITIES 

This program will compute the orbital parameters for up to 2 
vehicles orbiting about the earth for up to 549 days. This data is sorted 
on disk files and represents a continuous swath path about the earth. 
These swath tables are to be used by the segment access generator 
(SAGE) program to determine when and if certain target land segments 
lie in the path of the swath. 

1. 2 METHOD OF PROGRAM DEVELOPMENT 


Use will be made of existing FORTRAN subroutines in order to 
compute the ephemeris data and the data for the swath tables. Except 
for a limited number of specific places, the equation processing portion 
of these routines will remain intact. Control logic will be altered but 
new routines will only have to be created for processing card input and 
writing the swath files. 

1 . 3 OPERATIONAL ASSUMPTIONS 


• There can be a maximum of 2 vehicles. 

• There can be a maximum of 549 days. 

• The latitude band for swath table generation is ±6 5° latitude 
and there will be a maximum of 100 latitude points to process. 

• Only 1 case is run at a time. 

• The complete card data set must be entered for each run. 

• The existing swath tables will be destroyed each time this 
program is run. 

• The swath tables will be designated as permanent files since 
it is assumed that this program will be run about once per 
year. 

• Since namelist is not available on the PDP, fixed field card 
formats are utilized. 
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A sun synchronous inclination will be computed for each run 
condition 

Only first order oblateness terms are modeled in the orbit 
generation, 1 . e, , nodal regression and apsid il precession. 

Orbital elements are maintained as Keplerian elements 
(a, e, i, O , w, t) and are updated on a rev by rev basis. 

Orbit initialization equations will insure passage through a 
reference point at a specified time on the first day. Activs 
passage is assumed to be on the descending pass. 
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2.0 INPUT 

The only input media to this program are cards. The following 
sections give the list and definitions of the input quantities, the card 
formats and rules of entry. 

2. 1 LIST OF INPUT QUANTITIES 

See input data description sheets on pages 6 and 7 . 

2. 2 CARD FORMATS 

See card format sheet on page 8. 

2.3 DECK SETUP 

The order of input is: 

1 . Header card 

2. Program control ca.rd 

3. Orbital determination data (2 cards) 

2.4 RULES FOR ENTERING DATA ON CARDS 
2. 4. 1 General 

1. Integers must be entered right justified. 

2. F -format numbers must have the decimal point present, i.e., 
F5. 1-XXX.X, F4. 0-XXX. 

3. The card sequence numbers in the C.C. 79-8(' must be present 
in all data cards. 

2. 4. 2 Rules for Specific Fields 

IVEH - No more than 2 vehicles can be entered in this field. 

NODAY - A number larger than 549 will not be accepted. 

IYR - An entry less than 64 will not be accepted. 

INLAT and ISLAT - A negative entry or an entry greater than 65 
will not be accepted. The total number of latitudes 
allowed, represented by the combined bands, is 100. 

- An entry larger than 549 will not be accepted. 


IPPIS 
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SA - An absolute value greater that. 10° is not allowed. 

IV1TIM and IV2TIM - The first subscript entry (year) must be 
between 1964 and the present. 


I 

. \ . V 


* * 

Input DJ Description 
Program Control Input 



Name 

Symbol 

Dimension 

Nominal 

Value 

Range 

Units 

Description 

ICASE 


1 

0 

1-999 

— 

A 4 digit case number to identify the 
printed output and the swath tables 

NODAY 


1 

549 

1-549 

m m 

No. of days to generate ephemeris data 
for the swath table 

IVEH 

HEADER 

• 

1 

8 

i 

2 

Blanks 

1-2 

-- 

Number of vehicles to process 

Provision for an 72 character case header 
to print out at the top of every output print 
page 

V 

L.1DEBG 


4 

F 

(Blank) 

T or F 

* 

Flag to allow printout of intermediate data 
for swath calculations. Data for the 
following rouitnes is printed based on 
! subscript values: 

! 1. SWATH 2. Swath table and 

4. REVTAB reference file 

INLAT 


2 

5, 65 

0-65 

Deg 

. 

Northern Hemisphere latitude band for 
swath generation 

ISLAT 


2 

15,45 

0-65 

Deg 

J 

Southern Hemisphere latitude band for ' 
swath generation 

IPPI5(10) 


10 

1,549 

8*0 

1-549 

— 

Ephemeris data display flag «• 

= [start day, end day] pairs 

ISOSTR 


1 

6 

0-12 


No. of months delay to start the genera- $ £ 
tion of swath data on the swath table for<g £ 
the southern latitudes ^ 

O' 

0 
ro 
—4 

1 

j 

• 

t ■ 
1 
! 

• 

i 


RU -00 


•>v 






Orbital Determination Input 


Dimension 

6 

. 6 
6 

6 

3 


Nominal 

Value 


0 

0 


Range 


6650 to 
7700 
10~ 5 <. 15 

0-360 
0-360 
0- +65° 


-10-+I0 


Units 


Kilom. 


Deg. 

Deg. 


Deg. 


Description 

Vehicle 1 reference latitude passage time 
lViXXM(l)-(Year-1900); IV 1TIM(Z) -Month r 
IV1TIM(3)-Day No. ; IV 1 TIM (4) -Hours 
IV I TIM (5) -Minutes; IV 1T1M( 6) -Seconds 

Vehicle 2 reference latitude passage time; 
same information as Vehicle 1. 

Orbital elements for Vehicle 1 
Semi-major axis 

Eccentricity 

Longitude of Reference Latitude 
Argument of perigee 
Vehicle reference latitude 

Orbital elements for Vehicle 2. 

Same data as for Vehicle 1. 

Reference scan angles defining swath 
field of view 


t) ^ 

pj a> 

05 iv> 

*J I 
O' 

0 

M 

1 

a 

• 

o 

o 



( 4 - 

' v .. +•' 



PROGRAM CONTROL CARD FORMAT 




ORBITAL DETERMINATION DATA CARD FORMATS 


CARD I 



79 


02 




Data Types 

I - Integer 

AN - Alphanumeric 

F - Floating Decimal 

L - Logical (T or F) 


JO 

c 

I 

o 

o 
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3.0 PROCESSING 
3. 1 OVERVIEW 

An existing analytic ephemeris program is being used to simulate 
the orbital process which maintains the data as follows: 

(1) A set of Keplerian orbital elements for each rev 
(a, e, if P, t)» 

(2) Ground path and swath visibility tables as a function of 
latitude to be used by SAGE in determining access 
conditions. 

The only original code for this program will be related to control 
logic and orbit initialization procedures, 

3. 2 PROGRAM FLOW 

The subroutine MAIN will be used as the master control for this pro 
gram, Its logic flow and functions are shown in the MAIN block diagram 
on Page il . This diagram illustrates the usage of the major subroutines. 
The methodology for the generation of ephemeris data is performed in 
HECTOR and its flow is shown on pages and . Subroutine ACCGEN 
controls the computation of swath data for one revolution. The list of 
major routines performing mathematical calculations are: 

1. HECTOR (Called by MAIN) 

Computes for each revolution: 

Semi-major axis 

Eccentricity 

Inclination 

Longitude of the node 

Argument of perigee 

Time of perigee passage 

Start time of rev 

Right ascension of the node 

2. LFPA - entry ALPHA (Called by HECTOR). 

Computes right ascension of true and mean sun. 
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3. KEPLER (Called by HECTOR) 

Computes the eccentric anomaly by iteration technique, 
i. e. , solves for E in | E - e Sin E = n At } 

4. ACCGEN 

Computes eccentric anomaly at ascending node - E. 

Call SWATH and REV TAB to generate swath data for 
one revolution. 

5. SWATH 

Generates the latitude and delta longitude data for the 
scan angles representing a swath path about the earth 
as a function of eccentric anomaly. 

6. REV TAB 

Reformats the data from the SWATH routine data to 
represent this data at discrete 1° latitude increments. 

3. 2. 1 Initialization Procedures to Ensure a Sun Synchronous and Reference 
Passage Condition ( LACIE Requirement) 

(a) The input inclination is overriden in I NIT by a computed inclination 
which ensures a sun synchronous orbit. A sun synchronous orbit is defined 
as an orbit whose nodal regression rate matches the mean sun motion per day: 

Recompute i r ( ORBITl( 3) and ORBIT2(3) to make the 
orbit sun synchronous. 



-4ir (a ) (1 
„ 1/2 


2 . 

e ) 


3* (CMU/ ) 


CJ2X36S. 25*86400 


(1) 


(b) An initial rev node, O node, and time of node, t node, will be 
computed from the input (X. 0) [reference point] and passage time 
IV 1 TIM, IV 2 TIM) for each active vehicle. The procedure is: 

(1) Back off Kl, K2 revs such that IV 1 TIM, IV2TIM remain 
within current day. 


Program Flow for Ephemeris Program 
Master Control - MAIN 
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Call IN1T to 
Initialize Data 
and Tables 


DONE 
4 YES 


Call CARD to 
Read and Cheek 
the Data for 
One Case 


Initialize the 
CARDS Table 
from ORBIT 1 


Initialize the 
Day and the 
Month, ete. , 
Data 


©*■ 


/Ts J 
> IVEH 


y/is I \ YES i 
"> NODAY \ J 


! Ad 

d 1 

j to 

J 


Add 1 
to I 


J 


Call PKTIS ’ 
to Print Swath ! 

Data 


Call WRTISW 
to Initialize the 
Swath Files and 
Write Headers 


YES 


l : • 

— J 

' - 

Set J - 
V ehicle 

1 

Counter 



J 

! 

Set I = 1 
Day Counter 


Set KDAY = I 
and KVEH = J 


Is Current Day I in 
Range of .1 of the 
IPP15 Pairs 


Call ACC GEN to 
Control Computation 
of Ascending Node 
and Swath Data and 
Write a Record on 
the Swath Table File 


Compute 
Current Day 
and Rev Counts 


Call HECTOR to 
Compute the 
Orbital Param- 
eters for 1 Day 


CALL W RITSW 
Form the Data Record 
and Write One Record 
on the Swath Ref. File 













Is this the first 
rev cf the run 
for this vehicle 
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EPHEMERIS FLOW 
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EPHEMERIS FLOW (CONT'D) 
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EPHEMERIS FLOW (CONT'D) 


Is the first rev I 
of the second i 
vehicle still to 
be processed 


Leave the table 
entries as zero 
to denote no 
“vehicle 2" on 
that day. 
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(2) Compute initial rev node by 

O = 0. + v - Sin" 1 + K. AO 

node input tan i i 


rev 


where, 

A O 


Alt 1 


1 - e* , , 3 _.„2. v1 

2 ( 1 * sin i)j 


(2) 


rev 86400 n 

n = n Q [i +| J 2 

P 

n = /mo/ a^' 
o 

= mean motion 

p = a(l - e^) » 

U Q = gravitational constant 
a = semi-major axis 

These items were incorporated into the HECTOR initialization procedure. 
The mean motion calculation, n, was implemented by perturbing U calcu- 
lation. 

3. 2. 2 Computation of Orbital Elements for Initial Rev of Simulation 

HECTOR will obtain the right ascension of Greenwich for the initial 
rev of the day. At the start of the run HECTOR will utilize the injection 
conditions for each vehicle to compute the elements at the start of the rev. 
The following equations will be utilized for computation of t ie elements 
Of the first rev of the simulation. 


U ~ U K 
o 


where, 


3, jl -e' „ 3 . 2, 


K = 1 + f J 2 ' ( 1 - § sin i) 

P 


( 3 ) 
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where 


and 


Mean Motion = n 



Mean Anomaly = n (t Q -T) = M 
a - semi -major axis 

't - time of injection in seconds from midnight 
T = time of perigee passage 


t > T (if T > t Q then T=T- ) 


(4) 

(5) 


%. • 

The eccentric anomaly, E, is defined by 


E - e sinE = M (6) 

and the solution for E is obtained from the following iterative 
technique with € defined as the required accuracy for E, 


(a) 

assume E and compute 
o 

M 

o 

(b) 

compute A M = M-M q = i 

'c£ 

o 

1 

1 

s 

o 

(c) 

compute 1 -e cos E q 


(d) 

A E = A M/(l -e cos E q ) 


(e) 

E. = E + AE 
1 o 


<f) 

Mj = Ej - e sin Ej 


(g) 

6 M = M-Mj 


(h) 

if 5 M > € go to (c) with 

E = E, and AM = 6 M 
o 1 
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The true anomaly at injection is 


v 


x s in 


lN l-e 2 sin e \ 
\ 1-e cos E J 


and the quadrant of v is determined from Equation (7) and that 
cos E - e < 0 if i' is in the 2nd or 3rd quadrant since 


cos v 


cos E - e 
1 - e cos E 


( 7 ) 



i 


The inplane angle from the ascending node to the injection point is 
given by 


A f * 

; ' 


u - (CO 4 v ) 


MOD 2 ir 


(8) 


where Wis the argument of perigee from the input, 


The inplane angle froth, the injection point to the southernmost 
on the rev {i. e. the start of the next rev) is 


At* s —ff - u 


and the true anomaly at the southernmost point is 


*1 - {*'+£*' ^MOD 2* 


(9) 
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The cosine of the eccentric anomaly at j/ ( is 


e + cos V 


1 


1 | g 

cos Ej - e (I ~ j +e ^ 1 + e cos Vj 

The eccentric anomaly at is 


= sin 


■ 1 psin tq (1 -e cos 

L~~ J 


(id 


( 12 ) 


with the quadrant of Ej uniquely determined by (11) and (12). 

The integer number of perigee to perigee revs prior to the southern- 
most point is given by 


k = [(v+ A i>) / 2 TT ] . 


int 


(13) 


The time at the sounthernmost point is 

E, -e sin E, 


T s * 


I 


'1 


+ T + k 


(?) 


where n = mean motion 

T = time of perigee passage 

Likewise, the time of the ascending node for the rev is 


(14) 


T • _ E* -e sin E* + q- + k ( 2U \ 

1 - n 


(15) 


where E* = E^+ if 2 
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The regression of the node and precession of the line of apsides 
are computed from 



* 

n 

" 3 n J 2 - n - -• 
~ ? 2 2 2 v '° b 1 


w 

-3 n J 2 / 5 sin 2 i A 

" 2 a 2 (l-o 2 ) 2 V 2 > 

where 

a 

• 

E semi major axis » 


e 

E eccentricity 


n 

E mean motion 


J 2 

E second harmonic of potential function 


If the inclination of the orbit is greater than V /2 the node does 
not undergo regression but advances as shown by Equation (16), 

From equations (15), (16), and (17) the longitude of the node 
and the argument of perigee at the time of the node of the first rev 
can be obtained. 

<*>! « “ 0 + “< T i-y 

0) = the rotation rate of the earth and is a positive 

e ‘ value (rad/ sec) 

t = the time of injection 


(16) 

(17) 


(13) 

(19) 


where 
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The time of perigee passage for the first rev is obtained from 

T j = T + (k+1) (2 TT/n) 

where 

T 5 the input time of perigee passage 
k 5 value from equation (13) 

The right ascension of the node at the time of nodal crossing 
is given by 

X, s [0! + 03 T, + ft, 1 . ' , 

1 1 g el l 4 MOD 2tf » 

o 

where 

ff - the right ascension, of Greenwich at midnight 
®o from the subroutine LFPA 

The angle between the sun and the orbit plane will be evaluated 

for the first rev of each day by differencing the right ascension of the 

ascending node and the right ascension of the sun. The right ascension 

of the sun employs many of the same equations just presented except 

the sun is the central body and the earth is the "vehicle". These calcu- 

« 

lations are performed by LFPA. From Equations (5) and (6) we obtain 

m * » * jslrir 

where At s the number of days since perihelion passage 
and M = E g - e E sin E g 

where E = eccentric anomaly of the earth 

6 

about the sun 

e_ = eccentricity of the earth's orbit 
E 


( 20 ) 


( 21 ) 
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The true anomaly of the earth in its orbit about the sun is obtained 
from equation (4) which is 


y s sin 


• -ifV 1 - 

m _V 

1 - 


-e _ sin 

XL* S 


e E coa E s 


The right ascension of the sun is obtained from 
y - tan - * [cos ig tan ( v -V)] 

where y s right ascension of the sun 

ig h obliquity of the ecliptic , 

• ■ 

V s true anomaly of the earth at vernal equinoj: 

The angle between the sun and the orbit plane is the difference of right 
ascensions which is 


8 ■ [r - 2 IT 

where = right ascension of the node from equation (21) 


The rate of change of the angle between the sun and the orbit plane is 
obtained by differencing the values of 3 for that day and the preceding day 
and dividing by the time difference 

* * < 8 i * h-i>k - Vi> 

where = time of the ascending node for the first 

rev of the ith day. 

For the initial day- of the run the value of 3^ ^ will have to be computed for 
the time, t. y The time t^j will be obtained for the first day by subtracting 
24 hours from t.,. 
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The values of a^, e^, and ij for the first rev are the same 
as the input values. This' completes the set of orbital parameters 
which will be considered by the HECTOR routine. The complete 
•set of these parameters is 

aj s serri major axis 
^ eccentricity 
ij - inclination 

0. s longitude of the ascending node at the time 
of nodal crossing 

W. - argument of perigee at the time of nodal 

crossing 

= time of perigee passage • 

X. - right ascension of the node at the time of 

nodal crossing 

T B time of the start of the rev {i. e. , the southern - 
5 most point on the rev) 

0 = the angle in the equatorial plane from the 

ascending node of the vehicle to the sun 
(orbit plane sun angle) 

0 5 rate of change of the orbit plane sun angle 

3.2,3 Computation of the Elements for Succeeding Revs 

When the elements for the j** 1 rev of the day has been computed 

ef 4 

the elements of the j + 1 rev are obtained from the following:. 



- a. 
J 


(22) 

*»* 

= i. 
J 


' (23) 

e j« 

= e. 
} 


(24) 

n j+l 

* ^ 

+ l W /n)] M0D 2ff 

(25) 

*>j+l 

ST 

11 

+ <0 (2»/n)] M0D w 

(26) 
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T... s T. 4 ZVfn (27) 

j+1 j 

T = T + Zrr/n ( 28 ) 

s j+l s j 


J 1 : should be noted that T is the time of the start of the rev 

s 

in seconds from midnight and if T is greater than 86, 400 seconds 

. SiXl 

the j' rev was the last rev of the day. The first rev of the next 
day will be computed in the same manner as just described with the 
exception of time. For the start of a day, other than the day of launch, . 
the time of perigee passage and the time of the start of the rev will be 


computed as. 


. T + »+«■>**«> . 86,400 

j 


n 


s T +2 tf/n - 86, 400 

8 j 


(29) 

(30) 


where 


t j 



£t 


s time of perigee ps ssage of the last rev of the 
proceeding day 

s time of the start of the last rev of the 
prececding day 

~ {86,400 - t ) for the second day where t^ is time of injection 

and 

.s 86, 400 for all days greater than the second 
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3. 2. 4 Compute Ground Track and. Swath Dates for One Rev 


The subroutine SWATH will be called to generate a table of visibility 
swath information for a specified vehicle. The time of perigee passage 
(TPyj,pj), mean motion and the eccentric anorm.ly at the ascending 

node (Eq) will have been computed by the calling routine and available in 
common. For one rev, the subroutine SWATH will compute vehicle position 
data at fixed increments of eccentric anomaly. For each vehicle position, 
the swath data in terms of latitude and longitudinal difference from the 
node will be computed for a series of cross-track scan angles. 

th 

The vehicle position data computations for the i point in the orbit 
is initiated by the relationship: 

E = Ep + AE * ( i — 1) (31) 

where, 

= increment for orbit 
Then, T = (E - e sin EJ/n^p + TP yEH 


where, 


e = orbit eccentricity for the vehicle from the 
The sine and cosine of the true anomaly (u ), the argument 
( 0 > T ) and the vehicle altitude (H) can be computed by: 


ephermeris data, 
of latitude 


where 


sin ( v) = Vl - e^ sin E/(l-e cos E) 
cos (p) = (cos E-e)/(l-e cos E) 


H = ER - SM (1-e 


e cos v ) 


dip = argument of perigee for the vehicle from the 
ephemeris data 

SM = semi-major axis for the vehicle from the e 
data 


( 32 ) 

(33) 

(34) 


lens 


ER = radius of the earth in the units of SM 


The vehicle geocentric latitude is 
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Zy - sin ! ! s sin IN (36) 

X y r ARSIN (Z v ) (37) 

where 

IN - orbit inclination for the vehicle from the ephemeris 
data 

The right ascension of Greenwich and the longitude of the node at the 
time of the ascending node for the point being computed can be obtained from 
the relationships given by Equation (21). 

The cartesian components of the instantaneous node vector in earth 
centered rotating (ECR) coordinates are: 


X N ■ 

cos 0 Q 


(38) 

■!/ 

Y N = 

sin 0 q 


(39) 



The vehicle position longitude and ECR components can be obtained 

from: 

0 V = + AR-TAN (tan cq_ cos IN) + K *tt (Radians) (40) 

Xy = cos Xy cos tfy (41) 

Yy = cos Xy sin 0y (42) 

where K = 1 if 90° ^ w £ 270°, otherwise K = 0. 

The vectors N and Z„ are defined to be: 

ID 

Z B * (-V x )i + (-Yy)j + (-Zy) k (43) 

N = (X N )i + (Y N )j (44) 

where i, j, k are the ECR coordinate axes directions. The unit vector Y 

J3 

is then defined to be 

Y b = (N x Z b )/|n x Z B | (45) 
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The vector Py is defined to be 

P y = (D * X y )i + (D * Yy)j + (D * Z y )k 
where D = 1 + H with H in earth radii. 

The visibility swath data can be obtained for the vehicle position by 
computation of the latitude and longitude from the node of the intersection 
of the earth and a series of rays from the vehicle at various cross-track 


(46) 


scan angles. 

For the jth scan angle (j = 1,-2, 3) 



l y 

= sin (SA.) 

J 


(47) 

L z 

= cos (SA.) 

3 • 


(48) 

L 

= (A) (M) 


(49) 

where A 

is the two element row matrix (Ly, L^) 



M 

is the 2x3 matrix { ) 




‘‘B 


- Vb 2 - H 


S = -B 

where B • Py 

and H is in earth radii. 

If the value of S is negative, an intersection of the vector at that 
scan angle does riot occur. If S is positive; 

R = P v + SL = (R,)i + (R,)j + (R 3 )k 

v m 1 

X. = ARSIN (R,) 

3 3 


<J>. = A TAN 2 (R 2 ,R 1 ) - 0 Q 

3 ■.■■■■■ r ' ■ 


t. = T - TA . 

3 "" 

These relationships yield the latitude, longitudinal difference and 
time relative to the node for the scan angles. A table containing these 
scan angle data along with the vehicle altitude, H, for each vehicle position 
data point may be output at completion of the processing and is written on 
the swath file. 
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3. 2, 5 Compile Nodal Search Data 

The parameters needed for potential access determination in 
SAGE are: 

(54) 

(55) 


The %LAX P araraeters ajre a function of latitude and the 

data represents a conservative estimate for nodal bounds for a potential 
access condition. 

REVTAB receives through common a time ordered table defining 
the vehicle position and the visibility swath. For each time point the 
following data is provided in the table 

• Time from the ascending node for the ith entry 

• V chicle altitude 

• Vehicle latitude 

• Longitudinal difference between the longitude of the 
node at the time of the node and longitude of the 
vehicle subpoint 

• Swath data for each of scan angles 

• Latitude of scan angle vector 
intersection with the earth 

• Longitudinal difference between the node and the 
intersection of the scan vector with the earth 


n M!N = MIN <*v n 2 > 

°max = max <n r n 2> 


where 


CJj = 2 tt + 0 3 - 20 2 


0 2 = 2tr + 0., •» 20j 


and 


0. obtained from Equation (52). 

it 
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REVTAB will reformat the above data to provide the information in 
terms of latitude rather than time. The initial effort of REVTAB in gen- 
erating the data for the table is to interpolate and compute the vehicle 
altitude, vehicle longitudinal difference and the time from the ascending 
node for each integer degree value of vehicle latitude. Since the vehicle 
crosses each latitude twice, once ascending and once descending, two 
sets of data would be needed to define both day and night passage. How- 
ever, since a sun synchronous orbit is given only descending, passage 
is processed. 

The swath data is processed in the same general manner. For 
each of the scan angles, the longitudinal difference between time from 
the ascending node are obtained by interpolation for each integer degree 
of scan angle vector latitude. The minimum and maximum latitudes for 
which table values can be obtained are the latitudes equal to the orbit 
inclination, IN (or 180° - IN if IN > 90°). For latitude values outside the 
range + IN, the table entries will be zero to insure the proper subsequent 
processing of the data. 
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4.0 OUTPUT 
4. 1 GENERAL 

There are five media for output. These are: 

1. Intermediate debug print for swath calculations 

2. Ephemeris display report 

3. Echo print of card images 

4. Swath table file 

5. Swath reference file 

All debug output from HECTOR will be deleted. 

4. 2 INTERMEDIATE DEBUG PRINT 

The following debug prints occur if the input flag LIDEBG(l) is 
set to . TRUE. 

1. For each vehicle and day 

SWATH OUTPUT - LAT. AND DELTA LONG FOR 3 POINTS, 

ALT AND TIME FOR LATITUDE POINT 

XXX. XXXXXXX XXX. XXXXXXX — ^ for 6 more values XXXX 
The following debug print occurs if L1DEBG(4) is .TRUE. 

1. For each vehicle and day: 

MXLAT, MNMX.MXMN, NNLAT=XXXX XXXX XXXX XXXX 
For each of 3 scan angles: 

SLAM(361, L)=XX. XXXXXXXX — >- 2 more values 
SLAM(362, L)=XX. XXXXXXXX — > 2 more values 

2. The following debug print is produced for each lat. above 
minimum of swath edges at North Pole, for each lat. from 
lowest swath edge at North Pole to highest swath edge at 
South Pole and for each fat. from highest swath edge at South 
Pole to lowest swath edge at South Pole. 

For each vehicle and day and each of 3 scan angles, these data 
are printed: 

LATITUDE, TIME, and DLONG. 
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3. For each, vehicle and day and for each of 3 scan angles, these 
data are printed: 

REVTAB OUTPUT - TIME AND DELTA LONG FOR SCAN 
ANGLES AND ALT 

TIME, DLONG, ALT and LATITUDE 


The following debug print of swath file records occurs if L1DEBG(2) 
is . TRUE, and if the day is within one of the PRTI5 print selection pairs. 

1. A dump of each record on the swath reference and swath 

table is given which meets the above criteria. The records 
would be printed in pairs as follows: 

SWATH REFERENCE RECORD VEHICLE n DAY nnn 

NREV TMNODE CARUS 

1 nnnnn +X. XXXXXXE+YY 

2 


WP 

+X. XXXXXXE+YY 


17 


* 


SWATH TABLE RECORD VEHICLE n DAY nnn 
LATNO IALT TIME(l) TIME(2) TIME(3) DLONG(l) DLONG(2) DLONG{3) 

65 nnnn nnnnn nnnnn nnnnn +X. XXXXXXE+YY 

64 


-65 


% 
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4.3 REPORTS 

There is only one report which will be printed and only if there are 
non-zero entries in IPPI5 input data array. The particular days that will be 
printed are under control of this array. 

FORMAT: 

EPHEMERIS DISPLAY FOR DAY NNN 
VEHICLE N 


SEMI- MAJOR AXIS 

ECCENTRICITY 

PERIOD 


XXXXXX. XXX 
XX. .XXXXXXXX 
XXXXXX. XXX 


INCLINATION 
ARGUMENT OF PERIGEE 
RT. A SC. GREENWICH 


REV 

1 ) 

2) 

I 

17) 


NODE TIME 
XXXXXXX. XXXX 


' 


XXXXXXX. XXXX 


XXXX XX XX 
XXXX XX XX 
XXXX XX XX 

NODE LONGITUDE 
XXXX XX XX 


« f 


XXXX XX XX 


4.4 DATA FILES 

There are two output files. These are the swath table and the swath 
reference. See Section 2. 4 of the Users Manual for a description of these 

files. 
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Record Length: 80 bytes or 55 words 

Block Factor: 4 

File Size: 197, 820 bytes or 60,445 words 

Usage: This file is used in conjunction with the swath table by 

SAGE to determine when and if a seg-nent is accessed. 
The swath reference file is searched for a day and rev 
entry within a supplied delta of a given nodal longitude 
and time. The day obtained in this manner is used to 
read the desired record from the swath table. The 
calculations on the data can then be performed to obtain 
a further check for access. 


4. 5 ECHO PRINT OF INPUT CARD IMAGES 

The control card input to EPHEM is printed after all nominal 
values have been stored. 


HEADER 


AAAA * >AAA 

ICASE IV EH NODAY INLAT ISLAT LIDEBG IPPIS START /STOP ISOSTR 
NNNN NN NNN NN NN NNNN LLLL NE^IW^ NNNj q NN 0 1 

SA IV I TIM IV 2 TIM 


NNN. N NNN. N NNN. N NN NN NN/NN NN NN NN NN NN/NN NN NN 


ORBIT 1 ORBIT 2 

NNNN. N NNNN, N NNN.. NNN. NNN. NNNN. N NNNN. N NNN. NNN. NNN. 03 
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5.0 ERROR PROCESSING 

5.1 GENERAL 

The program will attempt to find as many sources of error during 
the input card processing as possible. The program w 11 continue check- 
ing for further input error’s upon detecting any input error. Since most 
of the computations are contained in subroutines which already exist, the 
philosophy of continuing processing after detection, will be retained. There 
are two levels of error. These are: 

Level 1 - continue pro cessing 

Level 2 - job fatal 

When a level 1 error occurs, the program will print an informative 
message and continue. If such an error occurs during the calculation 
phase, a printout of key data quantities is given in addition. When a 
level 2 error occurs, the program will print an informative message and 
return control back to the computer system. 


Level 2 

1. A check is made to see if NODAY is between 1 and 549. 
Message: 

***NODAY IS OUT OF RANGE. IT IS NOT BETWEEN 1 
AND 549 

2. A check is made to see if INLAT and ISLAT are each between 

0 and 65. In addition, ISLAT(l) (INLAT(l)) must be £ ISLAT(2) 
(INLAT(Z)). Message: 

***INLAT OR ISLAT IS OUT OF RANGE. THEY ARE NOT 
BETWEEN 0 AND 65 OR THE FIRST VALUE OF EITHER 
ONE IS NOT LESS THAN OR = TO THE SECOND. 

3. A check is made to make sure the number of latitude points 
is less than 101 as specified by ISLAT and INLAT. Message: 
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***THE TOTAL NUMBER OF LATITUDE POINTS 
SPECIFIED BY ISLAT AND INLAT EXCEEDS 100. 

A check is made to see if each entry pair for IFFI5 has 
entries between 1 and 549 and the first entry of a pair is 
s to the second. Message: 

LIPPIS (N) AND IPPI5(N+1) ARE OUT OF RANGE. THEY 
ARE NOT BETWEEN I AND 549 OR THE VALUE OF 
THE FIRST ENTRY IN A PAIR IS NOT LESS THAN OR. = 

TO THE SECOND. 

IVEH is checked to be between 1 and 2. No more than 
2 vehicles can be processed by this program. Message: 

***IVEH IS NOT BETWEEN 1 AND 2. 

A check is made to see if each SA entry is in the range of 
-10 to -i-10 and is in ascending order and unequal to each 
other. Message: 

NEITHER AN 3 A ENTRY IS NOT BETWEEN 0 AND 
• ABS(10) OR ENTRY(N) IS NOT LESS THAN EN TRY (N+l) 

A check is made to make sure IV1TIM(1) or IV2TIM(1) is greater 
than 1963. Message: 

***EITHER IV I TIM ( I) OR IV2TIM(1) IS NOT GREATER THAN 196 

ORBITl(l) and ORBIT2(l)-a are checked to be in the range of 
6650 and 7700 kilometers. Message: 

NEITHER ORBITl(l) OR ORBIT2(l) IS NOT BETWEEN 
6650 AND 7700 KILOMETERS. 

A check is made to make certain that ORBITl(2) and 
ORBIT2(2)-e is in the range . 00001 and .15. Ales sage: 

***EITHER ORBIT 1(2) OR ORBIT2(2) IS NOT BETWEEN 

.00001 AND . 15. 
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10. A check is made to make sure that ORBITl(4) and 
ORBIT2(4)-Qis in the range 0 and 36Q, Message; 

NEITHER ORBIT 1(4) OR ORBIT2(4) IS NOT BETWEEN 
0 AND 360. 

11. A check is made to make sure that ORBITl(5) and 
ORBIT2(5)-W is in the range 0 and 360. Message: 

❖❖❖EITHER ORBIT 1(5) OR ORBIT2(5) IS NOT BETWEEN 
0 AND 360. 

12. A check is made to make sure that ORBITl(6) and 
ORBIT2(6)“T is in the range +65. Message; 

❖❖❖EITHER ORBITl{6) OR ORBIT2(6) IS NOT BETWEEN 
.65 AND +65. : 

13. A check is made to make sure IVlTlM(4) or IV2TIM(4) specifies 
an hour such that the local vehicle passage time is between 700 
to 1700 hours. Message: 

❖❖❖IV 1 TIM( 4) OR IV2TIM( 4) SPECIFIES A LOCAL VEHICLE 
PASSAGE- TIME NOT BETWEEN 700 AND 1700 HOURS. 

14. A check is made to make sure IV1TIM(3) or IV2TIM{3) is 
in the range 1 and 31. Message: 

❖❖❖IV 1 TIM (3) OR IV2TIM{3) IS NOT BETWEEN 1 AND 31. 

15. A check is made to make sure IV1TIM(2) or IV2TIM(2) is 
in the range 1 and 12. Message: 

❖❖❖IV 1 TIM (2) OR IV2TIM(2) IS NOT BETWEEN 1 AND 12. 

16. If one or more of the above errors occur, the following 
message will print: 

❖❖❖THIS JOB IS ABANDONED DUE TO THE FACT THAT 
1 OR MORE FATAL INPUT ERRORS OCCURRED. 
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5.3 PROCESSING ERRORS 

Level 1 

1. A check is made in subroutine HECTOR after attempting 
to solve for the eccentricity anomaly that the iteration 
loop converged on a solution. Message: 

***ERROR (KEPLER) SOLUTION FOR ECC. ANOMALY DID 
‘ NOT CONVERGE AFTER 50 ITERATIONS. 

2. A check is made in- subroutine REVTAB to determine if an 
anomaly occurred in calculating crosstrack latitudes. If 
so, the following message is printed followed by data: 

REVTAB ERROR - ANOMALY IN CROSSTRACK LATITUDES 

Values for K, L, AA, JJ, DEL, XI, INT, NTRY,and LLL 
are then printed. 

3. A check is made in subroutine SWATH to make sure the 
iteration count of 5 is not exceeded in computing geocentric 
latitude and delta longitude. Message: 

Iteration limit on SWATH. Values for XLONGN, TEM, DXLON, 
R(l), R(2), IFLG are then printed. 

5.4 INPUT/OUTPUT ERRORS 

For sequential I/O the FORTRAN system on the UNIVAC or PDP 
takes control and prints a message identifying the problem and will either 
continue processing or abandon the job. If processing continues, the system 
counts the number of times this error re-occurs and if it happens a certain 
number of times, the system will abandon the job. 

For direct access I/O, the UNIVAC or PDP D.A, I/O package prints 
out an informative message, sets an error flag and allows processing to 
continue. In Ys program the swath table file is the only direct access file, * 
Immediately a the informative message, the following message will 
print: 

***AN IRRECOVERABLE I/O ERROR HAS OCCURRED ON WRITING 

A RECORD TO THE SWATH TABLE. THE JOB IS BEING 

ABANDONED. 
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PART H 


COMMON BLOCK DEFINITIONS 



COMMON STORAGE ALLOCATION 

Nam e C ON S Siz e 

Function Contains constants and input data 


Name 

Dimen- 

sion 

For- 

mat 

Description 

Sym- 

bol 

Units 

WE 

1 

R 

. 7 292115 IE- 4 



NVEH 

1 

T 

No. of vehicles ... 



NODAY 

1 

I 

549 no. of davs in the ran 



IVITIM 

6 

I 

Vehicle 1 iniection time no. nominal.. 



IV2TIM 

6 

I 

Vehicle 2 iniection time no. nominal 



rVP MTI 

h 

R 

No nominal s orbital elements vehicle.!! — 



1—1 

A 

R 

. \ 

No nominal s orbital elements vehicle 2. 


... 

KO 

■H 

■ 

Output print unit = 6 _ .. 



PI 

1 

VI 

3. 1415926 

^ 31 . 


CJZ 

1 

H 

. 10 823E- 2 



mm 

mm 

H 

. 15362204E-5 - 



PI2 

i 

R 

. 1.5707963 

WM 


— 

HH 

R 

4.712389 


HI 

■HI 

IH 

m 

Orbit option set to 2 



SA ’ 

■H 

m 

% 

Scan reference angle no nominal 

, l 


eidebg 

4 

■ 

Debug flags nominal is false ' 



Radian 

i 








■■■■■■■■■I 


• 
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Page of 
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COMMON STORAGE ALLOCATION 


Name CONS 


Size 


Pag e ? of_ 


Function 
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COMMON STORAGE ALLOCATION 



Function 
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COMMON STORAGE ALLOCATION 



tude studv band de finitio ti 


South latitude studv band definition 



No. of latitudes (N and S) to be 
studied. _ _ . _ 


List of latitudes from North to South 
for swath - - .. . 


From alt list of corresponding 
altitudes with LATNQ 


, \ 

For FOC ground sta. ind. 


Minimum A longitude table 


Maxim um A longitude table • 


Data from time ready for Writing - 
matches LATNO __ 


Data from DLONG ready for writing 
matche s' LATNO 
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COMMON STORAGE ALLOCATION 
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COMMON STORAGE ALLOCATION 


Name ACGDj 


Function Contains swath 


Name 


Dimen- i For- 


De script ion 


Sym- 







COMMON STORAGE ALLOCATION 
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PART in 


LIST OF SUBROUTINES 
AND 

SUBROUTINE CALL STRUCTURE 
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NAME 

1. day 

2. PIMOD 

3. LFPA 

4. CLDAY 

5. PAGER 

6. KEPLER 

7. ACC GEN 

8. HECTOR 

9. REVTAB 

10. SWATH 

1 1 . ALPHA 

12. DEG MOD 

13. INPROC 

14. LATSEL 

15. WRITSW 

16. PRTI5 

17. MAIN 

18. ERRDET 


LIST OF ROUTINES IN EPHEM 
FUNCTION 

Computes ID AY - DAY no. of th< year 

Converts an angle in radians to _«e between 0 - 2u 

Computes right ascension and ZULU day 

Computes month and day of current year 

Restores pages and prints header 

Computes eccentric anomaly 

Controls calculation of the orbital swath 

Compute ephemeris data 

Generates swath data vs latitude points 

Computes swath table 

Computes sun angle 

Converts an angle in radians to degrees 
Reads and checks input data control cards 
Forms the latitude band for swath table output 
Writes a record on the swath table and swath 
reference file. 

Print the ephemeris report 

Main control routine for the program 

Process's errors and prints messages 
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EPHEM SUBROUTINE CALL STRUCTURE 


MAIN 

INPROC 

EJECT 

ERRDET 

PAGER 

LFPA 

DAY 

PAGER 

HECTOR 

CLDAY 

LFPA 

PAGER 

KEPLER 

ALPHA 

PIMOO 

WRITSW 

ACCGEN 

SWATH 

PIMOD 
PAGER 
EJECT 
REV TAB 

PAGER 

LATSEL 

PIMOD 
WRITSW 
PRTI5 PRTI5 
DEGMOD 
EJECT 
PAGER 
EJECT 
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PART IV 


SUBROUTINE DESCRIPTIONS 
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SUBROUTINE KEPLER 


Purpose: 

This routine solves KEPLERS equations for eccentric anomaly (XE), 
given eccentricity (XECC) and mean anomaly (XM). The equations for 
the elliptic case is XM = -XECC* & IN(XE). 

Calling Sequence: 

Call KEPLER (XM, XECC, XE, ERROR) 
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SUBROUTINE ACC GEN 


Purpose: 

This routine initializes data for access’s, computes preliminary 
orbit parameters, computes the eccentric anomally at ascending node and 
time of perigee passage. It also controls the calculation of the orbital 
swath and latitude interpolation tables. 
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SUBROUTINE HECTOR 


Purpose: 

This routine generates the ephemeris data for two vehicles for one 
day.. The ephemeris is maintained as a set of orbital elements. 


28234- 6027 -RU -00 
Page 53 


SUBROUTINE REV TAB 


Purpose: 

This routine receives as input the swath data table from the sub- 
routine swath. REVTAB reformats the table to obtain the data at each 
integer value of latitude. 


2 8234-6027 -RU- 00 
Page 54 


SUBROUTINE SWATH 

Purpose: 

This routine utilizes the ephemeris data for the day specified to 
generate the latitude and delta longitude data for the scan angles for one 
rev. The data is generated at one degree increments of eccentric 
anomaly, beginning at the ascending node. 


Subroutine INPROC 
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ENTRY POINT: Call INPROC 

PURPOSE: This routine reads the job header card, the program control 
card and 2 data cards as discussed in the problem description 
document. It also calls ERRDET to find input errors then 
performs initial calculations. 

INPUT: All data in the input data cards as discussed in Section 2. 0 - 

Problem Description. 

OUTPUT: CONS COMMON 

ICASE, NODAY, NVEH, HEADER, LIDEBG, I VI TIM, 
IV2TIM, OR BIT 1, ORBIT2, SA, INP 

FLAG COMMON 
IVEH 


SWAT COMMON 

INLAT, ISLAT, IFPIS, ISOSTR, LATNO 


SUBROUTINES USED: 

CALL ERRDET 


METHOD /PROCEDURE 

- Read NODAY, IVEH, INLAT, ISLAT and IPPI5 into a temporary 
storage area and the rest of the data directly into working storage. 
•Move the above items into working storage only if 4 0. Call 
ERRDET to check input for errors. Perform initial calculations 
per Sec. 3. 4. 3. and in last paragraph item 3. 



2&234-6027-RU-00 
Page 56 


/ 

Subroutine LATSEL 

ENTRY POINT: Call LATSEL 

PURPOSE: To move swath data from a full 180° swath t ible storage 

to an area for writing on the swath table. Tuis routine 
also computes the minimum and maximum A longitude 
for all required latitudes. 

INPUT: SWAT COMMON 

NLAT, LATNO, DLONMX, DLONMN 
REVSTH COMMON 

TIME, DLONG, ALT 
CONS COMMON 
TWOPI 

OUTPUT: SWAT COMMON 

IALT, DLONMN, DLONMX, TIME 1, DLONG1 

SUBROUTINES USED: None 

METHOD/PROCEDURE 

See the 4th and 5<*h paragraphs of Section 3.4 item 4. 


Subroutine WRITSW 
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ENTRY POINT: Call WRITSW (IOPT) 

PURPOSE: To initialize, write and terminate output records on the 

swath table file - ISWTB and swath reference file - ISWR. 

A record is written for each vehicle and file. 

INPUT: CONS COMMON 

NAME, NAME1, ICASE, NVEH, NODAY, IV1TIME, 

IV2TIM, ISWTB, ISWR 

CALLING SEQUENCE: IOPT 

HECCOM COMMON 

XOMEGD(2) - 21 th LOC, XWD - 19 th LOC 
ACCNUM COMMON 
KDAY, KVEH 
ACCEPH COMMON 

WP (1, KVEH), TMNODE (i, KVEH), i = 1, 17 
NREV COMMON 

NREV (1, KVEH) 

ICARUS COMMON 

(CARUS (i, 1, j), i = 1, 3, j = 1, 2), (CARUS (4, i, KEVH), 
i = 1 - 17) 

SWAT COMMON 

INLAT, ISLAT, ISOSTR, (LATNO (i), IALT(i), <TIME'l (i, n), 
DLONGl(i, n), n = 1, 3), DLONMX(i), DLONMN(i), i = 1, NLAT) 

OUTPUT: See swath table and swath reference table output formats in 

Problem De scription document 
DACDC COMMON: INDEXR 

SUBROUTINES USED: 

FOR CDC - OPEN MS, RE AD MS, WRITMS, SLOSEMS 
D. A. PACKAGE 

FOR UNIVAC - The define file PACKAGE 
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ME T HOD / PROCEDURE 

The routine functions according to the value in IOPT 

For IOPT = i - initialization 
SWATH TABLE 

a. A define file is given to initialize pointers and open 
the fi le . 

b. Data is moved from common storage to the output 
array A(800). 

c. The header record is written 

SWATH REFERENCE - Rec. No. 1 

a. A rewind is given. 

b. Header record written. 

For IOPT - 2 - write detail records 
SWATH TABLE 

a. Data for detail record is moved into "A" 

b. Write detail record, get rec. no. from formula 
in Problem Definition. 

SWATH REFERENCE 
a. Write detail record 

For IOPT = 3 - write swath table trailer record 

a. Data for trailer record is moved into "A" 

b. Write the record, rec. no. is 

obtained from formula in Problem Definition 

For IOPT = 4 - close files 

SWATH TABLE - Automatic close 

SWATH REFERENCE - Write EOF and rewind. 
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SUBROUTINE MAIN BLOCK DIAGRAM 



DONE 
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Subroutine ERRDET 


ENTRY POINT: Call ERRDET 

PURPOSE: This routine performs all input error checking for the data 
on cards. It will continue to check for all errors even 
though 1 or more errors were detected. Having found at 
least one error the program will stop. 

INPUT: CONS COMMON 

NODAY, SA, IViTIM, ORBIT! , ORBIT 2 

SWAT COMMON 

INLAT, ISLAT, IPPIS, S 

FLAG COMMON 
IVEH 

OUTPUT: Error messages as shown in Section 5. 2 

METHOD/PROCEDURE 

When an error occurs a counter is updated. When the last 
error has been checked this counter is tested if = 0 then a 
normal return is executed, otherwise a termination message 
is printed and a stop is executed. The errors to be checked 
are found in Section 5. 2. 
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SUPPLIED UTILITY ROUTINES 


Routine Day 

Call Day (-YMD, IDAY) 

Given IYMD (3) where 1YMD (1) IS Day No. 

IYMD (2) IS Month No. 

IYMD (3) IS Year No. 


Compute year day no. in IDAY 


Routine PiMQD 

Call PIMOD (A) 

Convert ±A in radians to an angle 0-2 tt 


Routine SOL (Entry ALPHA) 

Call ALPHA (IF LAG) 

For emphemeris usage as called by hector 

computes ALPHAM and ALPHAT and IF LAG = 1 

Routine PAGER (Entry Eject) 

Call PAGER (N LINES) 

Updates line count in NLINE with N LINES 

NPAGE = 0 causes page to be restored prior to print. 

NPAGE - page no. 

HEADER- 80 char. 20AS 
ICASE- case no. 

KO - 6 print unit 

IN MAX is max no. of lines allowed 

Initially NLINE should be set > LINMAXand NPAGE - 0 
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SUPPLIED UTILITY ROUTINES 
(CONTINUED) 


Call EJECT (NLINES) 

Causes page to be restored automatically and then prints headers. 


Routine CLDAY 
Call CLDAY 

Given IDAY-DAY no. of the year compute in LMO-thc month 
and in LDA the day no. 

Need: IYEAR = 0 - Leap Year, -l 0 not Leap Year 


R outine KE P LE R 

Call KEPLER (XM, XECC, XE, ERROR) 

Given XM - Mean anomaly, XECC - eccentricity 
Compute: E-eccentric anomaly, error = 0 means OK 


R o ut i ne LF P A 

Call LFPA 

Given: 


L F LDA, LMO, LYR, ALFGM (can be dummy), DAYS 
FLDA - day of month no. , LMO - month no. , 

LYR - year no. compute ALFGM - right ascension and 


DAYS - Zulu day no. 

Routine DEG MOD 


Call DEG MONO (RAD, IDEG) 

Given; angle rad in radians store the angle in deg. , min. , sec 
in IDEG (!) - l '< ) • 


Routine FZU LU 

Call FZULU (IOATE, IOUT) 

Given Zulu date in 1DATE, compute year, month and day in 
IOUT(l) - IOUT(3). 

Routine RDMD 

Call RDMjA{FL, U) 

Given double precision random no. seed in FL, comoute random 
no. U (0-1) based on uniform distribution. 
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EJECT 



0 00003 

common /cows/ 
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000079 
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01)0001 
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0 000*15 
000094 
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00 6 101 
000102 
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01) 01 Oft 
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000109 
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00011 0 
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IF t SAM) .LT. 
7b CALI l*Ar.tH(2) 

WR I TKi(:K'F) * 9,25) I iJ 
1EHC = JfcRC ♦ 1 
BO COMTIlUjr : 

90 I r- C t V t T I H M ) .Lf . 

H i to i n .tr. 2)oo 

IKJV2T HU n .OT. 
93 CAM. PAM.PC2) 

HR 1 T t TyD-t 9 50 ) 

: if d r = I b 1. 1: ♦ i 

9b II (linn j 1 1 ( 1) .(.F. 
■■■ ftll Til 1 Ob 
100 IF- ( 1 yi n .1 T. 2)00 
If <n«Hl I2lf 1) .OF. 
105 CU1 f* A F-fc !•’ (-2) 
h!'I!t.<K<’*9 ijS) 

. 1 f iff = T 1 PC 4 1 

110 lF(n.(i‘jTl(2) .1)5. 
ftfl Hi t?0 

|1S IF ( TVf h .IT. 2) CO 
if (OR l*j T 2(2) .Gfc. 
120 CALI. RaftLlM?) 

. «H:nL7Kf»*.94:0) 

: - If Mt S T c r? C + 1 

j2b if (one it 1(4) .r»r. 

(HI TO 1 5b 

130 IF C T VI h .11. ?) CO 
IF ( ni<t‘ I T 2( 4) .OF. 
1 3b C«LI F'ACI.M?) 
wHITMkOtO'jS) 

i f !« r =• 1 1 ft' l ♦ i 

140 IF (IW*I T 1 (b) ,GF. 
(.11 TO (SO 

1 4b IF ( 1 VI m .LT. 2)00 
IF ( I'lflt l 12 (b) .OF. 
ISO CML Pa Cl 9(2) 
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."■■ 1 F ( I V I M .1 r. 2) CO 
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iso r./iM r i *hif 

175 imvt f !Fl(5) .6F. 
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R66SO .AND. URUIT2(1) .It. R/7001CO TO 110 
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TO 20(1 
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Kf HECTOR, j»76033t» 54920 , 1 

SUbDOIITiNF HECTOR 


SUBROUTINE HECTOR GENERATES THE EpHEMERIS DA.Ta FOR TWO VEHICLES FOR 
ONE DAY, THF EPHfcHfcRIS IS MAINTAINED AS A SF 1 OF ORBITAL ELEMENTS. 
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SI Ml -MAJOR AXIS (f .9.1 

tCLFNt KT C T I Y ' : 

P'CIINAT 10H (RAM) 

LOI-f.TtOOfc UF THE Moot AT REF. TIME (RAO) 
AftCUMERT Of PERIGEE PASS ARE (PAR) 

1 1MF OF PFRtGFt PASS ARE (SEC) 
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— START T|Mf OF PfV 
k 1 6* 'it ARC. OF NOL’E 

— . 24 ERESST 0 M rate of line of apsides 

— p I’ l ,!•’ t S S 1 0 1-J RATE of NOTE 

— tll-’MTl p| ARE SUN ANGIE 

— — ORbll PI AMfc SUN ANGIE RATE 
LOGICAL KMART ft) 

[) TUTUS I ON I' hVl T( 1 n 

OaTa J rF VC I / 1 n2 • 5 » 4 » 5,6, /t8t9,lD, llvUt 13,14, 15, I6t 1 7/ 
1'ilf t;i r IF L AG 

DATA l> l At;/!/ 
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HFtToR 
HFCTOR 
HFCTljR 
TlEtTOH 
MFC T()« 
. HFCTt>« 
KF (. ro« 
Mf Cll)R 
HF LTijR 
MFlTuR 
Hf (.TOR 
HI CTuR 


LATITUDE 4 DIRECTION OF TRAVEL 

MFUoR 

Ml t TOR 

1 1 mf of injection i yk /.wo y /me /pn/sf o 

Ml CTOR 
H! CT OR 

stl.t -MAJOR AXIS 

llf LUlR 

F.CtF NTH TCI TV 

MF L T OR 

INCLINATION 

Mf C TUR 

LMo R1 TUr>£ OF TIHF nude 

Mf CTuR 

A Will (111 NT OF PERIGEE 

MfCfOR 

1 1 it m f per igfl p as sage 

Ml CTuR 
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Tie ASF • I PP T 5 ( 1 H ) , M INtfNRARLf 1NP.L INMAX » I SHIM tlSWH tNVEMtNUDAY, 

4 1 VI T J P ( f ) 1 1 V? 1 1 H ( 6) *K0» IURII 1 1 f L TOT bG{ ft ) 

MF AT. NA M tt N A NF; j: 

LOGI C At LUil'N'l 
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1 At I' MAT, XMt TA 0 C 2 )»XhF f a<?, 2 > ,XHD( 2 ) rXOMtGDI 2 ) »TASCNP( 2 ) »Xl 0 (?) , 

2 P 1 HTuPf ?) ,LHitfL 0 A.|! 9 EVl ,NRtV 2 rlYHtIYH«»luAYf IPOAY , ICO At .N B tVl‘»» 
5).i t V«’l',l V t ; • A Y » I V2DA Y »l Y ft 

r or .!* on / a r c i pu/ 

1 I PROOF c 1 / ,21 T Si'll 1 1 21 ,FLf 1 12 ) tXINU »?)»RTASC(l» 2 )»WP(l* 2 )t TMOLdti 
2 , 06 ( 1 ) - 
EMU I V A| Fort (lo.lOURfll) 

UAT A 1:0/0/ 

L» I It! NS | ON XT 1(21 
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c 
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c 
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c 

oo oim 
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000 loi 
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COMPUTE VpA»-l < »OO t HONlHtDAY(FLT. PT.) F OH INPUT TO UFPA 
Tt-ST FOP £NO OF YU AH 

IF(IDAY.Lt.lPO^Y> LYHsLYHtl 

gall et o ay to compute t month and ldav 

CALL FlOAY 

update IP|)AY foil ijfxt call to hector 

IF ( IDA Y .LI. IPI1 AY) IPOAy = I DAY - | 

FLDAsl oA 

CAL t. 1 FPA(Ff OA ft MOtLYH, ALFACOtDAYSJ 
I VE H=h vF H 
I«tV = 1 

IKTIOaY .OT. 1) CD To ?0? 

I F" ( K V f M .FU. t)9u ro 10 

ihiv?|)Ay ,fd. roAYtoo ro too 

GO TO pop 

it 1 1 v t o a y . t o » I D ay ) go to loo 

GO TO pe<* 

cor.'Ti'.tjr : 

IF C K V f H .ru. I) GO TO 1 0S 

XTuriVFiu = iv?iiNi<i)*3f,(M)»ivPnnT5t»fco*ivaTjM(6j 

t;o to un 

XTuriVt Hj = IVlTlMt/l)*3f,00tIVl|IK(S)*60+IVlTIH(61 

CONTINUE 
CONTI t.'uF 
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100 
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110 
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KCPLf KTAN OKU it Eirof NTS 

C aOOS ( 1 * 1 f I VI M)»SE mI-MJOK AXIS CE.H.l 
r AKUS(P,1 f ! Ml lOsFCCtMTHICItY 
CaOOSTT, 1 , lV-lOtTNCLTNATTON (KADI 
rAl>’l(S(«t!,TVFHl=l 0»G. OF AFC. ^Ot t (PAP) 

CftOOS (S, 1 1 IVI-HlSAHC. l)F Ft N IF UCUS (KADI 
f ARMS { 6» 1 f T Vf H) c T li't OF - PE« IF UCOS PASS'S! (SFO 
f A'-’ySt /» I r ! VF h)=T 1 -U AT 5 TAUT OF Tl'L Ht y (SEC) 
CaPUS(«» ! . Tvri )=Plr.HT ASCENSION OF THE NOot (HAD) 

r Ai'os t p * i , : v f m r not used 

rAPusdOf i.ivch, use 0} 

COMPUTE OpPITAl FLFKE its Ff*K FIRST REV 

MEAN FtniToM ‘ 

XN = SuPI((. u U/CAR(l3( l.l,IVfcH)*«J) 

P « UtU’l/XN 
M’s 1 

= XTOCIVl.tt) *KP»P 

.it . o.ir.u ? n 6ti 

1 


so 


f*0 


XM.M 
IF (X IF H 
RP = >p ♦ 
00 TO S° 
KP = K |» * 
XT Of IVfH) 
i/itPHi 


l 

= xtfm 
I’LYP/il Vt’OO. 


tp 


MFC tOP 

nr IT U« 

HfCtuH 
HFCTO» 
mil Top 
•oct oh 

mi c TOP 
MFCTQR 
•iFCToR 
ore top 
met up 

III CTOR 
of t top 

5FI! 

ur crop 

MFC TOP 
HI C TOP 
hi CTot» 
HI CT0« 

HI CtO» 
HFCTUP 
HFclOP 
HI LToP 
hi crop 
•if r.iop 
hi c top 

HI CTC1P 
HF t T OP 
HFCToH 

• If LTOP 

• if CTiJW 
HI C 1 0 P 

•if crop 
hf c Top 

HFCToH 

HTCTOH 

hfc top 

HFCTOH 
HI crop 
HF C I UP 
HF t T oP 
HFCTOH 
HFCTOH 
HFCTOH 
•iFCtoP 
HI CT OR 

• ’F CHIP 
HF C T OP 
III CTuP 
MFC TOP 


♦ NEW 

♦ NEW 

♦ NfcH 

♦ NEW 

♦ HEW 

♦ NF W 

♦ NEW 

♦ MEW 

♦ HEW 


3 






000 If 9 
000 1?0 
0«01?1 
ooni ?2 

000 J,->i 

n00|?4 

OOOIPS 

oonj,->o 

00 Of? 7 

0 (J 0 1 9 

ooo i no 
; oooixi 
<100132 
000133 
000139 
00013b 
no ii 139 
00013/ 
000130 
000139 
ooo l/io 
0 001 1\ 1 
0001<l<> 

ooo i «3 

000104 

00 nil o', 

000 1/46 
00010/ 
no/>:i.4B 
OOO 1 /! V 
00 Oil 3, 0 
0001S1 

0 0014c; 
OOO IM 
0 o 0 1 S 4 
00ftl‘,s 
0001S6 
oo or,/ 
(ion iM) 
OOOJSV 
000160 
OOO 1 hi 
0001 6 2 
000163 
000 164 

0 0(1 16'J 
0 00 166 
00016/ 

000 1 60 
000169 

oonr/o 
0001/1 
00 o; 17 2 
0 0 0173 

n o ii 17 n 

000 1:7 S 
0001:76 
00017/ 
1)9 017 15 


c 

c 

c 


c 

c 

c 


c 

c 

c 


CA«tlSr/i»l»IVEHl a CAHU5 (4* I ♦ I VlH) ♦ KP*OELOMG 

tMrAKu 5 (o»i«TVFH) .ir. iwyPi vgo to /o 

CAHtiaCUtl t IVfcM) a CAkUS(4fl*lVtH) - OR.OMG 
M’ = Kp ♦ l 
70 ttlhtli'iit 

XECr s CARuS ( ?* 1 , I V1H> 

FORH It.-jCE**?) * (l.-LCC*F 2 )FFJ /2 
T» ■<••»! a I. - XLCCM 2 
TFKH 2 a SOHT ( Tt f? Ml J 


C 

c 

c 


TIMt OF FV'lCtL PASSAGE INVUTo IF N 0 T» COMPUTE INITIAL VALUE FROM 

iruopui r.tn.O) 60 to iso 

rOMplMF TIME OF PERIGEE passage fwph LATITUDE 


X) AT !=cAKUSi(6» I . I VEH) 

X:f-r API'S (3, 1 f tVF ill 

X w I = AS 17 / { $ | N ( XL A I I ) /S i N { X I J ) 


INPUT TYPE Ft AG 


e 

FLAT, 


INPUT tYPE 

c 

0 


H‘tE Of- ME VI CEE PASSAGE Cl 

c 

1 


lat. of tnuciiun input - 

c 

? 


Cat. OF IN jtC LI UN INPUT - 

c 

3 


LaT. uf INJECT I UN INPUT - 

c 

4 


LAT. OF INJECTION INPUT - 


(W 1 M VEH.) 


UFS.-VEM I? 
ASC.-VfcH Z 


ASCENDING 


IF UORIVIT .FU. I .ANp. Xt.AH . 11 . 0 .) XhI a TWOPI « XhI 
I F ( IUK» T T . EO . 3 . AND .IVFH.ln.l.A NO. XL A If .1 J . 0 . ) X* 1 = f 9 (}P I »XH I 
IF ( I 0 PhIT.EO.a,AN 0 .IVFN.E 0 . 2 .AN 0 .XLAf J.IT.U.) XWI-TwoPItXWl 


descending 


If (KISpI r,E0. ; ?) XW1=HT-X«I 
IKIUPoTl .tO.T.ANli.IVFH.f IJ.2) XHI a PI-XHI 
If (Tt'Pi,n.:LO.'t.AND. fVFN.tO.U XHI a PT-Xnt 
X>»ll I = y W !>C ARUSf Vi , I , Ivt HI 


TEST Fnw Nt) 1 ESS IHAN ZERO 


IFtXNUi .| T. O.TXNOI r TWOPI ♦ XfiUI 
CDfF Is ( 1 . /XFcC J * C ! .- 1 EN«t 1 / ( 1 .♦XE CC’C.OS (XNUj ))) 
Xf I S A E.i*ltSl 9 (>Niljr»(l.~XLCC*CnsEI)/TtPM 2 ) 
ircrofifl .LT. O.JXll = 61 - All 
IFfXEJ .LT. 0 . .A 1 (J. cost I , 6 t. O.JXtl a THOPI 
DELTAliafXF J-XFCT:»SI‘l(xtT))/XN 
CAHIISfh* I , 1 V| H)=XTO(lVtH)-UFLTAU 
ISO cowti*juf 

SET PI PIC. t | NASSAU Tint 


♦ XLT 


XT = C AMJSf 6 f 1 • T VE II) 


HE AN ANOMaI* 

X«sVh» (V 1 OftvlH j-CAPUSlftT I » IVT 111) 






Hf CTu» 
»(f CTOP 


KFCTOR 
NFCTuP 
m cron 
»if c ro» 
hf l top 
HFCHiR 
HF tTtlR 
HI CTjjK 
hf CTO« 

Hf c roR 
hi c Ton 


m 


♦ NEW 

♦ NEW 

♦ NEW 
♦MEW 

♦ Nt W 


HFCTOB 
hFCTuR 
HFCTljR 
HF IT UR 
Hf tTr}» 
UtlHf CTfjR 
HF ctijR 
(if C T llR 
hfc Tor 
HFCTUH 
Hfc to« 
Hfc ton 
MfL’liR 
hector 
Hi t T OR 
Hf CTO« 
hfctdr 
hi c run 

Hf c T (}H 
(If CTljP 
HI C T OR 
HI CTt)R 
life t«r 
hi c t on 
hi c ron 

HFCToR 
HlCTuM 
(iff T (jR 
♦ tF (_ T 01* 
Hf cT OR 

Hf c Ton 

Hf c T OR 
Hf CT(]« 
Hf CTu« 
Hf LtOP 
HF C T ()P 
hr trow 
Hf cron 
hi CTU» 



♦NEW 

♦♦-t 


•NEW 
♦ NEW 


1 ~ 


I 11 






000179 
0001 HO 
OOOlP.t 
000 1H<J 
OOOlHi 
OOOlM 

ooo i«s 
00(1106 
ooo i«y 
0001 Alt 

00 01 n-v 
000190' 
00 019 t 
oooto.; 
000 19i 
000 1 Oil 

ooo VOS 

000196 
000197 
0 00196 
000199 
000/00 
ooo.; oi 
ooo/o<; 
ooo /pi 

00 0/0 4 

ooo/ns 
000/06 
o KO/'n / 
0 0 0 / 0 0 
000/99 

oon/l o 
non/t 1 
000/1/ 
OR 0/1 3 
000/ I 4 
oon/is 
non,; H> 
009/17 
oon/i 6 
110 0/1 9 
009//0 
0U0//1 

oun/// 
non// j 
0U0/?4 
no <(.//'.» 
ooo;;/ o 
non/// 
oon//a 

000,1/9 

000/10 

tion/Tl 

0U9/ X/ 
ft u n 7 , i 
nun/xo 

000/19 

ooo,: *6 
oon/'W 
oon/ la 


C CALL KfiPlF.R TO CnhPUTfc £CC. ANOMALY 
C 

CALL k;F PLf « t XH , XECC t XF »pHROR) 

lF(FKRt)H.Pll.O.) 00 TO 1?0 * 

CALL PaCL»{?) 

KW1TL («!)» l oOO) 

1000 FORMAT! IHO.AOH** FUROR (hEPl.ERJ SOLUTION FOR UC. AHOMALT 010 
ICONVtl.uF AFTER SO ITERATIONS ) 


c 

c 

c 


i?0 LOOT 1'Nyl 

SI N! = SIMCXEl 
cosf = TOSCXE) 


c 

c 

e 


c 

c 

e 


c 

c 

c 

c 

c 


FORM C!.-ECC*G«Stfc U 


If HM3 a l. - XLCC*COSfr 
TRUE AMOMaIV l INJECT ION) 

XNU = ASlNC?KWf?*SlNfc/TER«i) 

Ttst FOH HllAt'HANT OF NU 

eoswo s (C0SE-/FCC)/(1.-XFCC*C03E) 


IF (COSMO .LT. 0 .) Jt-N .0 = PI - XNU 

IF(XiH) »LT« 0 . .ADO. rUSNU .OT. 0 .) XNU 3 TWOPI ♦ XMU 


otherwise nu is unchanged.... 
implant ancle from asc. mope io inj. point 
xl l = P 1 »*tm ( r. A’»U s ( 3 1 ! 1 1 VF H ) ♦ XNU) 

IMPLANT ANCLE FHOM I«J* POINT T 0 START OF NEXT RT V . t SOHTMCRNPUSI 
ox Nil s 3. * pi / - XU 


t TRUE ANOKAtV AT S. !'. 

C 

xnut a Pirun(XNU ♦ pxnU) 


c 

c 

c 


COSINE OF F AT Nil 

COSE 1 = (J./xrcC)»U.-TFRlU/(l.*XE:CC*CUS(XKtM))) 
ECC. AUOM Al T AT NUT 


c 

c 

c 


Xll = aS IN ( SlM( XNlJ'l ) * ( 1 .-XtCC*COSF 1 ) / TF RH2) 

IF (r»r*f 1 .IT. 0 .) XE 1 = PI - *ET 

IF (XU. .LT. o. .AND. rtJSLI . 61 . 0 .) XU a Tt.ljPl ♦ XF| 


NU. OF PIhIOFF. - PFM1GEF RFVS 


K c (X||U ♦ DXNUT /TtiOPT 
XK = K 


Jl Ul'.n - THWP I / XM 


hector 
HFCTCJR 
HtCTljR 
HFCTOR 
Hf CTilR 
nFCTuR 
HECTOR 
NOT HECTOR 
HE C T UR 
llKTu'l 
hector 

♦0 C T U'T 
HI C f OR 
HF C TOR 
HECTOR 

i.mu« 

HECTOR 

•ire tor 
hector 
HECTOR 
HEt TOR 
HI Cl OR 
hIcThR 
HECTOR 
Ml C T HR 
ME CHI* 

• >t C 1 OR 
HECTOR 
Hi CT(‘P 
It* L T C'R 
HE CTtlR 
HI CHiR 
rtl UuR 

•• HECTilR 
HI CtliR 
HI t T()R 
PT.lurcToR 
Etl t T(|R 
HECTOR 
1.1 CU)R 
HI I. T l)R 
hf CTuR 
til C T OR 
Hf (.TOR 
HECTOR 
HEcToU 
HE C TOR 
. Hf c T oR 
HI CTuR 
HECTOR 
HE CTtlR 
HECTOR 
HI C UtW 
HECTOR 
ME CTuR 
1.1 C T i.;R 
111 CTUR 
HUTLlH 

nr ctiiR 
Ilf ctijR 






Page 79 


PERIOD (TVER) = Tt«M« nr C T OR 

^ HfCTuR 

e tire at s. p. n-s) * Hfcrt,R 

Q HFCTyll 

CARDS ( / » 1 f IVEM J = l XE I -YEf C *S t N ( XE 1 ) ) /XH+XT ♦XRMERhfl I* C T 0» 

e nr CTOR 

C TRUE ANuMaIV AT ASCtNOlNr, NODE Mf CTUR 

e HfCTtlR 

XNUNUF s XNUl t P T<? ' HfCToU 

e hfctor 

C FCCfcNtPIC ARORAcV AT ASCENDING NOOE MT t T 0 ^ 

(- Hf E T U ,f 

S T hr NT) = SI Ni( XRl'JNDt ) * ( TFRMl / ( J « + XF CC*CUS (XNUNDt ) ) ) /Tt RM? DM. UlR 

XKSTAH = ACPS((l.»TTKPi/n.AXFCC*C05(XNUNRt)))/Xfc(;U HfCTuR 

IF (SlMfHft .IT. O.O) YESfAH = TfcOPT - XFStAR HKTU« 

c HFtTnR 

C TIME OF A5C. lifiiof-' FOR REV 1 (| F CTljH 

e Hf LT(lR 

XTUIVKtl) = (XLSTAH-Xf Cr*SIN{XtSTAKl)/X‘<*XWXR*ItRM4 Ilf CTll’? 

1 40 IF'C XT 1 < m.H) .CL. C ARUSl T* 1 t l VF H) ) 00 TO 1 «S JrttTdR 

XTl(lVM') = XTlUVtH) ♦ TFI.M4 HICTOR 

00 TO lOO Hlt inR 

c ' Hf L to» 

1 45 cnNTif.yf . H! TTyR 

e '■> HFCTjR 

T’iNrmf ( 1 tivFH) = XT1CTVFH) Mt ctoy 

£ t'HLluW 

C RECESSION OF NODE PHFC. OF LINE OF APSIDES HFCTilR 

c in ctqr 

TF rtMS 2 ( »5 •/?. ) * ( x N*CJ?) /( (C AM.'S 1 1 *T» l Vt H‘) **?)*TE8mM2) Ml C Ti)H 

XPMt Of“C I VTH) = TFRM*j*rHS(CArtUSt^f 1 * I VF M) ) HfCTtlR 

X HOT i Vi M ) r TF R M *»•« IS. * S I N ( t A h ll : S < $ * 1 * 1 V t H ) ) ♦ * d /2 . - 2 . ) Hf C T MR 

c nlUu» 

C LONG. HF RODE F ARC. Of PERIGEE AT f lMf OF NDDF OF FIRST REV * FlF'C HR* 

e f-F C T UR 

CARDS (4 t t « I V'tHJ - P TMWH t AMOS f 4* t « 1VEM) ♦ { XOMtGp t I VLH) - MF. ) t (X T 1 ( IVFH)Mf CluR 
I -XIO(TVFhn) Hf C T OK 

CARDS (S’ 1 * IVEH)=PTM>D(CARHS(Stl« lVtM)FXWD( 1VEH)*(X1 1 ( IVEH)»X f OC I VUlf C U)S 
*H) ) ) ’ MIL TOR 

IF (CAPlI? (St 1 »IVHO .GT.PTi?) t ARIJS (b 1 1. 1 VfH ) * C AIUTS (S* t ♦ I VtH> Hf u T C1« 

* -IHMPI . HltTllR 


C TIRE OF PfRIGcE PASSAGE FOR FIRST HtV 
C 

CARDS f 6* 1 » IVtO) “C ARRStfr. I t l VtiR) 4 CXX + T . ) V Tf RM4 

c 

C RIGHT ASCENSION OF' NODE aT TIME OF NODAL C«0S5ING 
C 

e ARWS f fl * 1 1 1 VER ) =P t HOD t At F AGO ♦ *E* XT t ( I V EH) ♦ L ARMS t 4 * 1 • 1 ■ J ) 


I if LTiiR 
Hf 0 TOR 
HltTllR 
Ml LTtlrt 

IRC TOR 
MTCTuH 
Hf t T(jR 
Ilf C TOR 
IRC TOR 
111 CTO'? 
HF C T OR 
HFtToR 


G CALL SUbR(jHTTI*F ALPHA Id CnHPUik RIGHT ASC. OF St'N AT TIME OF 1ST RfeVril Cl I'M 
c HF CTO 55 

C ALL Ai rHAt IFLaG) "I LTl.tR 

c . I ll 1. 1 OR 

C > OR HIT HLANF' sun ANGLE — F>E I A fit CT.HR 

c , hf LTiiR 

XPitTAC 1 *IV( H JsPTMOD C A| PHA T-C A'RUS ( 0» T ? I VFH) ) Ml LU|N 


-OH I! I T PL AM' SUM ANClF OF I A 


0 MOHR 



fl 

1)00299 


XOKC.PP = C APljS(4» 1 » 1 VFH 1 ♦(Xt)rtFbO ( IVtH)-WE ) * (~XT 1(1 VFH)) 

HFCTOR 

i - 

000 * 01 ) 


XPtT A ( 2 * ) VK H) = PT-XUMOPK 

m CTOR 


0 00. *01 


IKXUMGt’K.ilT.Pl) XUEtA(?*tVEH) = K*PT-*0MGPH 

HF C T OR 


000502 

c 


MFCTuR 


000505 

e 

-RATE oF C'l'ANGt OF AHr.LF — 1)1 IA-DUT 

HF CT(|R 


000504 

c 


HECTOR 


00 0 JOU 


XKfc T A (V( T V f 1-1.3 - (XBtUf l,lVEH)-XHbTA(2«IVtH))/-XU(!VF.lO 

HI LTOR 


00050b 

c 


HE CTOR 


000507 

c 


MECTtlR 


0 0 0 50 » 


GO TO 251 

HFCTOR 


000 50 9 

c 


Hf CTOR 


00 0 510 

c 


HE C T tlP 


0005) l 

c 

SET TIHIF NT 

(if L I IlH 


00451 2 

c 


hector 

a 

000513 


202 CONTI M'JF 

HE C Tf|R 

00 0 51 4 

c 


FlEf TOR 


00031b 

c 

SET REV rotlNT FROM PRtVJr.US DAY 

HECTUR 


00051b 

c 


HF CTUR 


00051 / 


NWtVp s N!'fc.Vt p 

Fif CTllR 


00 0 51 0 


I F { T V F ! 1 . h 0 . 2 ) NKt. VP = N P t V 2P 

Hi C TOR 


000519 


C ARC'S ( 1 1 1 • 1 V(. M) = C AHItOT UNRIVPtIVEH) 

lit CTI1H 


000320 


XU - Sl;MfC 1U/CAHtJJj(l.l,IVtH)»A5) 

nr c TOR 


00 0 521 


Cf'ltl f 61 2 » 1 < I V E H ) = CAKUSf 2 .N!HVP,IVfcH) 

MFC HiR 


000322 


CA'UDOf 3 flfIVfcH) = CARllS(3tN«l VP.IVEM) 

Hi C 10 w 


000523 


IERH4 = PEKIUOlIVEfl) 

HI C T I) R 


000524 


CA HI 16 f 4 1 1 r 1 Vf MO = PlHr)i)(CAKUSt« t NRtVP,IVtH) + (XOMEGOC|VEH)-*»n 

HF C T OR 


non 323 


| * T 1 KliMl ) 

ll! C 1 MR 


00032b 


e ARMS f b • 1 f I VI M ) S P 1 1. n O f C AH US ( b ♦ N BE 7P , I VE ri ) ♦ X> 0 ( I VtH) 

hi CIOR 


no 11 52 7 


1 *11 !• M 4 ) 

ore To'? 

■■ ■ 

000528 


I F ( C APljM b 1 1 * I VK HK G I.P 1 52 ) CAkUSCbt It I Vt H) s C ARMS ( b» 1 1 IVEH) 

HEC HR 

: 1 

000329 


* -TnDPT 

HF CTOR 


000330 

c 


HI CToR 


00053) 

c 

TEST FOH sftONFl DAY OF LAUNCH F0« EITHER VEHICLE 

HF C T 0 ,R 


4 0(1532 

c 


- PfCTuP 


000535 


IF UCPaY .OT. 2 ) r,(j in ?«b 



000534 


IF l T Vf h. 10.2) till Hi 204 

Hf CTOR 


00 0 53 5 


I F ( 1 1 Da Y - 1 V 1 D A T r - 1 ) 2 0 6 , 2 0 b *2 0 6 

HF CTOR 


000336 


204 I E ( { I RaY‘* I V?0 A Y ) - 1 ) 206.20b.206 

HF CTOR 


000537 

c 

COHPMTF T 1 15 1 Of PlPlGtF P ASS AtiF FOR DAY ? 

HECTOR 


00453b 


20b C A HI.1 8 ( 6 » 1 * 1 V t H ) = C ARMS f b«t«Rfc VP 1 1 VtH) ♦ (THOPT* (XWOf I V 6 >f) *(06000 

. HtCToR 


00.1.559 


1 -XI0( TVFHT) ))/XN-R6400. 

MFC TOP 

1 

000340 


GO 10 240 

HECTOR 

000341 


?06 cOt.Unif • 

HECTOR 


00 0 342 

c 

COMPUTE T 1 ft OF PEHISEE PASSAGE FOR DAY GREATER TN*N DAY 2 OF HISSIUNMF l TOR 

000545 


CAROS ! 6 i 1 « lVfcM) S L ARTIS f 6 t NHL VP • IVEH) ♦ ( T HOP I ♦ XRD( 1VE*«> *66400 . 

>/XHHFCTClR 


000544 


1 . -Bo HOT). 

1-rtToR 


00034b 


208 CDNTIbOF 

HFCTOR 


000546 


CAK'ISf ,<* 1»1VE«) = CAIiMSf 7.NHtVP,IVtH)TlEHH4-86400. 

HTcTuR 


0 0 0.54/ 

c 


HI CTOR 


000540 

c 

COMPUTE TIME OF AS C . HOOF FUR FIRST REV OF OAlf OTHER THAN DAY 1 

FACTOR 


00 0 549 

c 


HECTOR 


OOOjbU 


X T H IVfcH) •» ( T ASCNP 1 IVhW) ♦ NHL VP * TERN 4 ) -B 6400 . 

Hf CTuR 


0005b 1 

c 


HFCTOR 

i' t 

00 0 5b2 


TMHODF { 1 t IVFH) » XTKTVFtl) 

HTCTOR 

1 

On 03 b 5 

c 


HFCTOR 

)■ 

00 05 b 4 

e 

coMPUir pi. asf. 01 node at ti edr oat otiir« iHak day j 

HI l TiiR 


00 0 V'.S 


CApUSf m 1 1 1VLH) s f’lHOUf At F AGO 1 WE * XT 1 ( l VL ll) »C AlUJSf 4* t » I VtH) ) 

H! CTOR 


OOOibb 


210 C OUT I HUE 

HFCTOR 

> 

0 0 03b 7 

t 


hf CTllR 


0 0 03 b 11 

c 

CAlCMLAll PITA-DOT FOR DAY OTHER THAN l AIJNCH 

HE C TOR 


*1 


l D 


nj £ 

JU 00 

TO 

n 

oo 


i Q 


ro 

w, 

t\ 

o| 

ro 

r\ 

3 

o| 

O 


3 




< 

000 359 

c 


NT C TOR 

£> 


ooojoq 

c 

BETA FOR OAT - 1 

HECTOR 



0001M 

c 


Hi E ToR 



000362 


XRCTAfjt IVKH)=Xf1LTA( 1 * IVEH) 

FtrcTOR 

5* 


0 Oft 3* .4 


CAUi Alpha (tk ag) ■ 

Hi G T i)R 



000344 

c 


HF CTrjR 



000 : 4*5 

c 

ntTA FOR THIS DAY 

l.f LTifR 

© 


000366 

c 

. 

Hf (*tuR 



000367 


X BET AT 1 * lVt»)=PtM0 P( A|.I»HAT-CARUS(«i If IVFH) ) 

Iff CT OR 



000 3*0 

c 

■ 

Hf CT OR 

s> 


0 0 0 309 

c 

RET A t)0f 

hfctor 



000370 

c 


Hf CTtjR 



000 37 1 


X IVLT AO ( J VEH) sCXBETAf 1 . IVEH) -XHfc T A (2tIVLH> ; / (XT t ( I VEH) 

hfltor 

rj?N 


000372 


t ♦(HoUOO.-l ASCHP(lVFH))) 

Hf ei ur 


D 

000473 

c 


HFCTOR 


OOP 474 

c 

computf oh hit fifmfnt for nrev .gt. i 

Hf C T |)R 

i>* 


00 P 37 5 

c 

t 

Ht LTuR 



0 fin 376 


211 DO ?2n TKFV=2f 17 

Hf LTUR 



000377 


JTliE VM 1 = 1MV-1 

til CToK 

b 


000375 


1'HNlTfH « THrV,IV|.H) * TM'NDUE ( IKF V 9 1 » J VfcH) ♦ IFRH4 

Hf LTilP 



000379 


LAKHS ( ttlOLV, IVFH) = T APUS< 1 t JrtF VM) ♦ I VE H) 

Hf LTOR 



000 300 


C fl HUS ( 2 ♦ I Ft V f I VFH) = cAvUS(2.THEVK1 .1 IVfc K) 

HI C T OR 



000301 


CARDS! 3 t iRfcV » IVFH) t CARDS! 3, Tilt 7M‘l t IVfcH) 

Mf CTOK 



0 00 30 2 


C AK1I4 f 4 * 1RL Vf T VFlt.) * (>1 HU9(C AMjS ( 4 t {Kf VM1 . JiVEH) ♦ {XOMEGOE 1VEH3-HF) 

Hf tro» 



000 30 3. 


1 ♦ 1 F K M « ) 

Hf CTtlH 

© 


no oi 04 


C A KUS H » I PE V , T V F m) s R I MUO ( C ,\ \> US ( S » ! K F V I* 1 ♦ 2 V C H ) ♦ X w D ( 1 V fc H ) 

Hf CTtiR 



000305 


1 MfHitm 

HI C T UR 



000306 


I FtGARuS tSf TRFV.1VLH) .1>T.I’I32) CARDS (5t IKE V« IVfcHJ 

ttf C T L'S 

© 


000407 


* = GAht|SlStTM V, l Vl.H)- | !+uRl 

Ilf CTlfR 


8 

OOP 3« H 


CAMJOffct m.V, TVF H) = CARUS{ 6 * TKF'VMl, IVfcH) ♦ tf RK4 

Iff L T UK 


000309 


CAHU 5 ( 7 * IRfcV, IVfcH) = rARUSl7,I;(#VHl,IVtH) + IFKH4 

HfCT'jM 



non v*u 


CARDS (in 1 REV t I VFH) = p TfUJf) (C ARDS ( R, I Hf V M 1 . I VtH) ♦XCIMFGTK |VEH) 

MIL TOR 



000391 


1 * I f RM4) 

Hf CT|)R 



000392 


IF f T >■ K t 1 U F ( T R F V * T Vfe H ) . 0 T . H b 4 GO.) GO 10 300 

hfltor 

P 


000 54 4 , 


220 t‘VlT Iftjt 

HI t T|)R 



00 n 440 


t.0 TO 310 

HF CToK 



non ">5 


300 19 tV = IMF VM | 

fircToR 

s> 


00 ( 1 396 


310 cunt 1 hue 

Hf CTuR 



0 0039/ 

c 


HF CTO 0 



00 0 44() 

c 

SET REV rt)1J 147 

HI (.7 |)K 

a- 


000 449 

c 


Ilf l.T()R 


I 

000400 


I F ( T vtf H .1 0.1) NO fc V 1 = 1 Rl V 

HFCTOR 


1 . 

000 -ml 


IF U V f H • 1 0 . ? ) NIT fc V 2 = IRE V 

HI L TOR 

$ 


000402 

G 


HFCTOR 



000403 

G 

SET TIKE OF ASC. NODE (FIRST) OF THIS DAY FOR NEXT CALL TO HECTOR 

HT C T U FT 



000 4 071 

C 


HFCTOR 

3 


000405 

C 


Hf CTllR 



000.(06 


TASCflR(tVFH) » XTHTVFH) 

HI c Till? 



00040/ 


400 CUNT IMjt 

HT C T UH 

3 


000400 

G 


HFCTOR 



000409 


K t TURN 

HT CTllR 

3 

3 

'•'> 

8 

000410 


END 

t 

• i 

\ 

HFCTOR 
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fit INPROC* 1*760331* 5*>9?2 t l 


000001 
000002 
oooon J 
oo no no 
00000‘i 
(.00006 
00000 / 
00 000 « 
oooon'/ 
01)0010 
ouotn 1 
0001)12 
000015 
000014 

0 0 ti 0 1 *» 
00001 b 
0:0 0017 
no not « 
00001 “/ 
oooi) ;>o 
000021 
ou 0 o 22 
0000 2 5 
000024 

no oo 2 V 
0:0 0 0 26 
000 027 
00 0 026 
0 00029 
000050 
00(1051 
0 0 0 tjS '2 

"qo oosi 
00 00 50 
00 005 V 
00 0 o 1 b 
000057 
0 00 0 51 ! 
0 0 0 050 
onoij'H) 
00 00 »l 1 
0000*12 
0000*15 
0 00 0*1 0 
0000*1 *> 
0 0 0 0 '* t> 

nono« / 
f)o non B 
000009 
O(HU)M) 
It 0 0 0*1 1 

oono '>2 
0 on oV 5 
oooo o o 
0 : 000 ’. V 
0 0 no'.b 
no nos 7 

600 u SO 


SlItW'HlTlI* INPROC . 

C TII1S l»i.illl tNF RE 60S Till- CARD INPUT » STORES THF DATA* AND PERFORMS 
t 1TAI CaI Ct.'LA) IUN6. 

COMMON /I.PN5/ 

ItrcE f C JS * CNII v ♦ K AO I US * lit. aDFR ( 20 ) * N'AHF (21 « NAME 1 (2) » TWriPI » ALPHAM, 

2!*<t S»l*> tli PUT 1 1 ( 6) tORUT 12(b) *P I *C J?*CmU*PI?*P 132*SA(3) t RADIAN* 

3 If ASt * |PPIV'( 10) * N LINE +H PAD t * INP«L J UMAX • I SN l R* tiSR * NVEH * NUt)‘A Y f 
4 1 V 1 T I ( 6) * IV 2 1 I"(b)*KO» I OR Hi F *1 IDFUGt*!) 

If fc Al M A *"*fc * MAKE I 
i .ioiuAi t tur l>f. 
tMH’IUH /HAl’7 

1 1 F I •> S T » 1 V f M f IS1AHT»TtN0, I0tNU 
CO.i«l)ti /SWAT/ 

lot tlNriM ( 1 00) • |)l ON MX ( t 00) * 1 IMF 1 ( 1 00*3) *01 HNS 1 ( 100 *3) * TNI- AT (2) * 

2 1 *:l h r ? ) . t :ip-yi + * wt. at * t at w> ( loo ) . i al t < i o o ) * ir.Hiu (l 7 j 

OKU (*•: [Mi I*-'L A T :T (?) tlSLftl T (?) * IPPIVT (TO) 

Rt A ll ( I *ll'. 900 ) ( ill- A life !•(!), 1 = 1 *20 ) 


INPROC 

IN!1«PR()( 

INRHUC 

tf'NS 

CONS 

CONS 

ecus 

CM NS 
C.H*S 
CPUS 
( I AC. 

M AS 

swat 

SO AT 
S«AT 
IM>'?0C 
If ('HOC 


m rl I l 1 -4 ’ t ' W J 1111 (—k* Vl/T*-‘” ■ / ■ 1 

Iff Al) ( J;jF'*90V) 1C ASF .IVrHT.MuOATT* (TNLAT I (I) »tM*?) * ( ISL ATT M ) 1 1»1 »2M;l">ttC 

. . . * . • * *-> . i t* i iHvh 1 1 r* 


0 ) IVfcH = ivriiT 



I MR HOC 

N! , O)ItcLAT(J) 

Z 

TNLAT1 (l) 

i'-'ppoc 

l*r . ID 1ML A T (2) 

z 

INF AT I f 2) 

If PlHlC 

i.f . 0)1 s L a T ( 1 ) 

z 

tat am r D 

II. PR DC 

fvF. 0 ) 1 S‘l A I (2 ) 

z 

I St. ATI (2) 

Jf: PR or 




1 up line 

MF. O)IPPJS(I) 

z 

tppiski) 

‘if.PRdC 


i)«d rnt i'c( n * l = i *«) *( TPPivt ( n *i»t* to) fisosTH* joum 
H i' AM UUP *9 10 ) (SA( l) *1=1*5) * f J V » T IM( I) *1 = 1 *S) * f 1 V2T IM( I ) *I C 1 »®) » 

1 1PUM 

Hf oft ( t k ,P* 6 1 V ) COWl 1 1 ( I ) * I ' 1 ♦ o) » ( ORbI 1 2 ( I ) * 1 = 1 1 6 ) » T Dtlrt 
jf (.mdhaYT .ml. oJnuday = noDavj 
IMIVI hT . NT , 

If ( I HI A T I r 1 » 

(F (Till aTT (2) 

If ( 1 61 A T 1 ( 1 ) 

I F ( 1 St A F 1( 2) 

0i S 1=1*10 
II** ( TRP l S I ( I ) 

5 C r 'N T I Mill 

VfWlTt fw'l.OIO) riiFADtRCT)* 1 = 1*1*-) 

Vfl-iTL (+ 0*9 Vv) I CASE ♦ T V T h *f«i'i; AY • INLAT * I SLAT *L10t 00* TPP I V* TSOSTK 
hi* I Tt ( + 1.* *’MO ) S A • I V 1 T I"* I V 2 1 I M 

WO’lTt (K0>94 r i.)0R"l 1 1 f ll* OKU 1 T 1 (2) * (ORUlT 1 (I ) * 1 = 4 *6) * 0RH1 T2 ( 1 ) * 

1 CIWII T 1 2 ( ?) * ( OHl* 1 1 2 ( I ) » 1*4 * 6) , 

CALL F j'F t T (?) 

(>1.L F H RDF | 

uwi- t ii(i) = orii m m /r adius 

0*'UT I?(1) = (Fi-H 1 T2 ( I ) /P A01 US 

(id 1 U 1 = 5 * 1 *. 

ClRIsT 11(1) = OR ill I HD /RAli 1 AN 
()RHTI?( I) = OR«T 12(1) /RADIAN 
10 CDItTIUlF 

O n IS 1=1*3 
S A ( T ) = 6A(I ) /RAHIaN 

IS toil! 11 (JF • 

NVtll = IVf II 

IMHO IT - ? ' 

TI Ml* = (-<i,*p1*(muiT1 l(1>)**21*ct. - OHf«ITl(2)**2)**2 

I rivet - i.t 60Rl(CHl'/(0Rlin 1 n))Y*3)*3bS.2S«86600.*rj? 

II IIP 2 = If hv'VFL DPI 

til*lllll(5) = A F A'l ( SoR 1(1.” Ik PP?T *2'/ 7F. s lf’2) ♦ PI 

OHIin 1 (*D = II.Rh FT 1(4) F PI -ASrH-TAufOOUm (b))/TAM(0HHlH(5))) 
if (oh.'i T i f «) .uF. iwupiTuPiiin (fi) = uRh nil") - twypi 
X T 0 I = T vi T T H C 1)1 5600 * IV I TI“(SJ + I )<1 +: IvHTMCb) 

LTD) = (Ml - 4 5/00. ♦ fl R H 1 T 1 ( 4 ) * 4 5 ? Ofi . / P t 

IK (I I 6 1 .1)1. 2 WHO . Alii) . 1101 .LL. 61 200)00 10 lun 


If'plUlC 
INpHfJt 
1‘ PifoC 
IfipPOC 
IMWHfjC 




*RtW 

♦MLR 

♦ NK,v* 

♦ MKVf 

♦ NL.W 

♦ NtW 


lUPROf 
IUPR0C 
IKPROC 
lF-pHlIf* 
r»*l*RDC 
1> pnoc 

1 Mpl-’ClG 
t-MPRUC 
if.prior. 
if ppyc 
ifpnijr 
1:».-P'H)C 
If- woe 
I L PH DC 
at T 1 

am 


I . 

I 

R 


p “I 

09 

re 

. if*, 
co « | 
in CM 
O 1 
M 
~J 
I 


*NtW 

♦MEN 

TNlW 

♦ MtR 

* MLR '■ 




G 

i 

o 

o 


l» 


,/*« rtv ex fs ps 


'*• 

I 8 

9 

> 

■> 

8 

i? 

>■ 

!> 

5 


I 

? 

J 

> 

i 

i 



a v ' 

0 Of) 059 

95 

CAM PAfitK?) 


*Nt.W 

nooo*o 


Wl'ITt fKn»960) 


♦ NtW 

9009*1 


STOP 


♦ NLP 

oono*f* 

too 

IF(IV*H .IT. ?)Bt) T9 1 1n 


♦ NfcW 

0000*1 


trnp - f-4.*pt* curthiT?! i ) )**2)*(l. - m<l(iT2 ! (2>**2)**2 

inppoc 


00119*4 


1FMP1 - S.» SOPT(CKU/(UK»M2(U)**4)»365.?5»06«00.*rji 

IF.PROC 


0 on o*5 


TTKP2 s T»«P/TtKPl 

SF 1 1 


0000*0 


U'*UM?<3) = aTA 9($9!M (l.-Tt‘1P2**2)/Tt“P?) ♦ PI 

5F 1 l 


no oo f> 7 


U” (> T 1 ? ( 4 1 a (J M 14 T T 2(4 ) ♦ PI - AS 1 N(- T AN f UPBI 1 2 ( 6) ) /T AN (OKBl T2(3) ) ) 


f MtH 

noouou 


■jVCniikt 12170 .1.1. TbOP 1 ) UP||T 1 2 1 4 ) a 091(11214) - IWOPJ 


♦ NfcW 

0000*9 


XT 0 2 = I V2TT Ml 4 ) ♦ 46 00 ♦ 1 92 1 1" ( 53 *60 ♦ !V2TIK(6) 


♦ Mt W 

000070 


L TU2 s X 1 02 - 44200 . ♦ fikPl 1 2 f 4) *442oO/P 1 


♦ Nf. W 

000071 


IF (1 1(12 .fife. 262U0 .AND. 1 T 02 .U . 6121)0)60 TO HO 


♦ fltW 

000072 


60 TO 9b 


♦NtW 

no 0.0 7 3 

110 

L A T n U f 1 ) ' TnL AT (2) 


♦ Nth 

000074 


()(1 *0 0 1 ap.» 66 

IfiPROC 

♦ ♦-1 

000076 


l'K = T l 

lNPPdC 


OU 110 7 0 


in m s t Aiuon-n - i 

IF'PPtlC 


00 00 / 1 


IFUTIm .It. TNlAUmun 10 610 

iNppor. 


0000 76 


L * 1 MO f I ) a JIFM 

p.pnur 


000079 

*00 

C 1 1 N T 1 1 H 1 1: 

INpPOC 


0 0 Oof o 

610 

ll AT 91) ( I K ) = lULATin 

li.ppyr 


0000*1 


IK = TK ♦ 1 

1NPS0C 


0 onortd 


t ATNO;( I H ) = -ISLATU) 

SFM 


0 0 1) 0*4 


ON *20 I'il , *>, 

inp-wgc 


oono*« 


I'lfcM r LAIWOt I+lK-l) - 1 

INPPrC 


0000*5 


1*K 1 a T 

inppun 


nonoob 


IF l T If r< .11. - TSLATlpncO TO 640 

*F 1 1 


non on/ 


LMMU.f I# JK) a 1 TIM 

r p«oc 


oonono 

620 

en*TTH)f 

If.'PPun 


000009 

640 

t A J MtW i K ♦ IK 1 ) a -ISLAM?) 

SF T1 


oonono 


hr iiiiim 

ILPPdC 


000091 

900 

ffiUMAT C20AU) 

IN>W«C 


oo no ■>e 

905 

f n H f 1 A T ( 1 4 « I ? 1 1 4 1 4 1 2 » 4t 1 , ! 0 1 3 » T2,25X » 12) 

It-PPDC 


0 0(1994 

91 0 

FDK'AT (1F5. l,t2I2*42X.i?) 


♦Nth 

no 09*4 

915 

FtiKfMt ( 2(76.1 <r *.5, 4f0.0) » 22 X 1 1 2 ) 

iMprtoc 

♦*-l 

000*95 

910 

| t>|( MAT ( 1 >1 1 « S6X , *nllt A l)F «/ 1 H , 5X t Itt A<0 


♦ Nth 

0 0 0 0 96 

945 

1 PH PAT f 1 Hn 1 5x .9 SMI LAST IVfcH NOD AY INl AT JSLAT LlOtBG 


♦ NtW 

000097 


l IP* IS STaHI /STOP TlMtS ISOSTR/ 


♦ NfcW 

oooo n> 


1 7 X » 1 4 V v , X » T V . 4 X » T 4 . AX t 


♦NLN 

000099 


241 1 2 » 2 « 1 » t X *4t 1 1 4X iV(T J t IX * 7 4 »2X } tcX 1 12 »5H 01) 


♦ HIW 

0001 00 

940 

f !’K'*A T ( llin,l JX.'lSHSA I V t T I'M IV2TIH/6XF 

♦ NfcW 

ooomi 


1 » 3 (F 5 . } , 2 X ) • t X , 6 <12 » 1 V ) , 2X ,*( I2« IX) • 4*X *2M02) 


♦ ‘ILK 

000102 

945 

FOkM aT { 1H0 t ? 1 X » ollljPhl 1 1 1 30 X * SHRUB 1 1 2/6X # F6. 1 ,2XtF6.6»2Xt 


♦ Mt W 

000 1 0 4 


14(7 4. 0,2X1 tlx* 


♦ Mt W 

000104 


1 . iFh.l , 2x«F*.Sf2X»4(1 4.0»2X)*?7X»2MP 51 


♦ NLP 

non i ob 

960 

FPUt'A,T(ll!0,46l'*T» X v 1 T 1 p ( 4 ) OP IV2tlM(4> SPFCIFUS A LOCAL VtHICLFF 

♦ NtW 

000 | Ob 


1 P ASSART TIPI Nfir Hf TV.fc.FN /OO AND 1 700 HONKS) 


♦ Mt V) 

000107 


tHl) 

1 fiPRUC 





frLi TOrl * 7B0925» S8<J05 ill 




c o 
o o 
it* c 

if n 


w ec c* 
3 

XXI 


3 0 0 



^ ?y 
o c c 

0 0 9 
O OG 
O O O 
o o o 






» i .. KfcPLFR»l.»750^5* 5*37*7 » l 


000001 
000 002 
non 005 

<10 0 0 04 
00 00 0 ') 
000006 
oo non 1 
oonoo!' 
nu'ionV 

0 oni) io 
noooll 
ooool 2 

noij'j i i 

no oo >4 
oooo i 5 
onoo io 

00001 7 
0000 10 
0000 19 
noon?o 
0 o 0 0 ? 1 
oono ?2 
O0()0?i 
nuno?4 
oono?5 
non o?b 
no oo? 7 
oonopo 
oooopv 

0 U 0 0 5 0 
0U01)5t 
n o n o 52 
non o^5 
nono^a 
00(|0 55 
0000 56 
000057 
000050 
00 011 59 
onnooo 
o u o o o 1 
oooo«2 
00 0 0 'l 5 
ooo no <i 
nunonb 
0 0 0046 
000007 
oo oo no 
oo no ov 
OiM'O’ o 
0 0 00*) 1 
oooo5«; 
(1 0 05 ) 5 5 
000054 
0 U 0 (| 5 5 

0 OOO'Wj 
000057 
000050 


e 

c 

c 

c 

c 

c 

c 

c 

r, 

c 

c 

c 

c 

c 

c 

c 


SlilWOUrlNF'KEPLEKtXMtXlCCtXFtFRROR) 


THIS Sl'itFul'ITlrJF SOLVES KFf’ 1 .bH*S FUUATIONS FOt? ECCENTRIC ANOMALY <t) 
GIVEN rCCFMtRVCjTY (FtO AMO KEAN ANOMALY <«>• . 

THF FOUATlONS FOR THE FLLliPlIC CASF JS h-f-FCCYS I N lE ) . 


LOCK FUR THF SOLUTION OF THF HYHtRlJPLlt CASF HAS PtFN REHOVEO. 
INPUT 


OUTPUT 


AM 
Xf G'C 


HFAN anomaly (RAD) 

OMulIT ECCFNTRICI tv (N.O.) 


c 

c 

c 

c 

c 

c 

c 

c 


XF ECCENTRIC ANOMALY (9*0) 

ERROR fc.RWiOk FI AG TOOK AT INC CONVERGENCE CONDITIONS* 
— 0 11. PLIES rUMVFRGtMCE HAS OCCURRED. 


o IiM F NS I ON U<4) tC(4) 

1 FCCF*nS*CNNV * p A() IUS t HE AUER ( 20 } r N AMP ( ?) * N AP.F 1 1 2) *T nOP 1 * AEPH AM * 

3 IF ASF . JPP1M t 0 > *NL IMt *NPA<»t * fcFJPtL TNH AX » ISRTH » I SNR tNVEHt MUOAY ♦ 

4 1 V H IP < 15 y * 1 v l T I H 1 6 ) »K 0 1 1 URa 1 I tUVF UG ( 4) 

HE At Mft'-'L -MAKf 1 
LOGICAL Lll’l uG 
REAL M 
H = XP 
t fc = *rcc 
ERROR =0. 

IF (0. He. 0.0) GO TO 9 
L = 0. 

1,0 TU ft 
9 COnTIMJF 


CALCUUlt INITIAL VALUE OF ECCENTRIC ANOMALY 


Tf HP = » 

K = PluHIHTFMP) 


F or u(D .LT. M .Lt. HU + 1 )* I= 0 . 1 f 2 ( 3 » THEN F° s CUM) 

If Ft .Gl. IlNili THEN Ft) a (H~?»PMLCL)/tl-ECC) PI-5.14159 

WHfRt 0 ( 0 ) I i> MINUS INFINITY 

tid) = i-rcc cm = u/Ain 

Pl-l-ECC C< 2 ) = HtFtC 

PlUfttC c< 5 ) = (HAtCCYpT) 7 ( 1 +ECC) 

?*'P 1 - If tCG t( 4 ) = (H-Eft) 


15(1) 
15 ( 2 ) 
ht.il 
lit 4 ) 
C f 1 ) 

cm 

{.<51 
C t‘H 
L'O ? 
I r ( 


111 015=1 {,) ) 
U» TU i 


urn 
u r si 

ti( 4 ) 

* t.-tct 
r pi-i.-rcr 
= pi+t.ifct: 

= P.tPl-1 >tC'C 
= F 71* < I 5 
= hae or 

= CM*ft TfftC) '( t.ftrt) 

= M-rcc 

.1 = 1*0 

. r. r .of.)) 1 t:o TO 2 


KFPl £« 

Kf PIER 

MPI.tR **“P 

Kf Fi t' B * 

Kt PI t R 
K1 PEER 
M PLfcR 
KFPtf.1T 
KF PLF R 
MPI. ( P 
KFPl tR 
KFPl F.R 
K F P! fc.R 
KFPl t« 

Kf Pl.f R 
Kl F'l h» 

Kt PIER 
Kf PLfcR 
tl NS 
crus 
Lt NS ‘ 

LONS 

CONS 

CONS 

CONS' 

KF Ft t R 
Kl PLfcR 
hi PI 1.9 
Kl Pi t H 
KF Pt fc R 
KFPIF.R 
KFPl fR 
M PI fc« 

KF PI. h R 
Kf PI fcR 
KF PLfcR 
M PLfcR 
KfPlI H 
KF PEER 
Kl PUR 
..KFpfcfc R 
hFF't EP 
kFPI fc R 
Kf PI fcR 
KFPIF.R 
kF PI HR 
KF PL tR 
M FH.fcR 
Kl PI tR 
Kl PI fcR 
KFPl. fcR 
Kl IU t.R 
Kl PI fcR 
KF PI fcR 
M PI H< 

Kt PI l.R 

KF PLfcR 
Kl F t LR 


I 


I 


h 




3 


13 £ 

ju 00 

TO S 

a w 

03 1 
O' O'* 


°rl 


cv 

-J 


t 

& 

a 

* 

o 

o 



r.'4 ' ■ . ' 


0000*'V 
000060 
000061 
000062 
fHlO 0 6 A 
000060 
oo no os 
00 0 06<1 
000067 
00 0 () 6 « 
00006V 
000070 
no no n 

000072 
00 ft o/S 
0000 70 
ft Oft 0 7 S 
OOOOVb 
00007 / 


e 

c 

c 


2 CmiTI^tJE 

01 DF= < M“2.0*HT»F.CC ) /< 1 ,-fcCC ) 

CHCin Att ECCFNTHIC anomaly 
S CONTI Ntjf 

on to N=i*bo 

Fuf rsR,!WcntRt 7 
DFOFFrcliafOt DF) 

fc =01 ufc + ( M-m OF i ECCTFOFE U fl .-ECC^OFOFF) 
!MAri!i(fO( OF-F)/lHOt).lF.«.Ot-07) bO TO 7 
OI.OF 

10 C f li4T 1 

tlfl(HK=1.0 

7 t * m* = r 
t = F I j-jMO ( TFrtPj 
a xf*F t 

HIltlM 

fc.WL> 


Kf Ft fcR 
MfUR 
HFM.tR 
RTp\ £H 
(\t Ft fcH 
RF Fl. fc R 
tvFMt H 
. M Ft 1 ft 
Kt FI fcR 
-KfcFt fcH 
KM’UH 
Rt Ft. £K 
M FI fcH 
Kf Fl fc.R 
hf Fl fcR 
Kl FLfcR 
hi Fl fcH 
M Ft. fc R 
RFFI.LR 









r ITT t ATSfLtl»7 < 50 < ?d?t 


suuwuii i tnf t.ATsn . 

T»-JS PolJITNr RESTOHFt SWATH DATA IN I/O AStA AND COMPUTES HTN-HAX 
D! LTA | tUif. ITIJDK T AIM 1 S 

CDMHUH /SWAT/ ' 

U)< U'l'iM (ion ) « u( ()NNX (1003 tllMFin 00*3) »DL0Nr.l < I0'0»3) t INUAT(R) * 
2ISL.M ( < >)»1Sr , Sll<*h1.ATt! ATNn{ 1 00 ) .1 ALT ( t 00) MCHDI ( 1 7 ) 
tHHHUN /ifl Vr»TH/ 

t Tim u a i » 3 1 ? ) * i5t()N»; 1 1 /i i , i . 21 * al t u a 1 » ?) 

cnrimiM /cn.ts/ 

IE ELF »f I R » TNliVtl*. All ! US aOI'H( 20 ) vMME (2 3 » NAMI 1(23 * TwnpT * ALPMAM t 

21 Ml :> , W| « Ull|1 III tM t-UKH ! I2t ft) tPl «CJ2trHMfPl?tPl32ti5A< A) . HAD JAN t 
\ IT A SI. i jl'H I*j ( 1 U ) »Mt INt .tip API. * I W'*‘L TUN AX . ISM l'« ISPK *NVfc *| tNUDAY r 
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00 ..in 3 
000204 
00(2 (lb 
00 C 20 b 
00020 / 
000200 
00020 V 
000210 
0002 1 1 
0 0 02 1 2 
0002 1 3 
000214 
(100215 


000216 

C 

0 002 1 7 

c 

000213 

c 

O(ll) 2 IV 

c 

000220 

c 

000221 

e 

000222 

c 

000223 


00 0.224 

c 

000225 

c 

01 ) 0 2 ? b 
00 022 / 

c 

000228 

0 U 0229 

c 

000230 

000231 

4 ; 

0002 V 2 
000233 
000214 
000235 

c 

OOOK'^O 

c 

000237 

c 

0 002 18 

c 


/'■ ^ . . . '. • , • ■ • ( ■: i 

TtMF (! nT«K>Kvfio * t.Fb 
ljl.U‘«i(iNl .K.RVFM) * 1.E6 
GO TO 375 

C W'TfcWni AT? WLftaFFN' T«n vAt UFS FOR THIS SCAN ANGLE FROH TABLE TO 
C OBTAIN UA-t'A FUh INTEGER l AT ITliDt 
C 

350 COHTIt'uF 

A A = fit AN(L*K) - SLAH(L-JJtK) 

JF( Af'sCAA). .01. 0.0) GO TO 360 
ILL = NO CMAP 3 CN) 

CALI I'AP-MH?) 

W«iTl (KOfOObQ) 

«HtT>. (H<’»VOTo))(»L»AAtJJ»OEL»xT»lNT»NTRTtLU 
J60 IF C :>l aH( 1 -,?J*K) .ME. I.EG .ANO. SLAWCL *K) .NE.1.E6) GO TO 365 
ITrtF (IrjTtKtKVFH) * i.Fb 
l,t ONl.f JM1 »K,«KVtM) =: 1.E6 

365 d”l T = (XJ-ol AHCL^JJ*M)/(StAH(L»M-SLAH(L-JJ»K)) 

1 1 N1 { t N T tKtKVFK) = (1VU )-lV(l-.IJ))*l)TL ♦ fV(L-JJ) 

til UNIT jM tlvtiKVlH) * (SI J Hl{t.K)-SVHia-2JtK)>*ntt ♦ SPH1{L-JJ»K) 

37 S COGt IfljiiF 

C . 

K = NApSCK 
L = NO(NSPbCN) 

A A = r>L AH (C»K ) - RLAKf C-JJ»K) 

IF ( A 11 MAA) .1>T* 9*0) GO TO 380 
ill. - tlOCflMiSCN) 

C All- P.*GLWC«?) 

WRITE! k«*‘WA0) .... ... 

N V i Tt ( h U » <M>7 0* K »L » AA , J-J ,IFL »X I »TNT »NIHY »LLL 

3B° COG T I FUF ^ v . M) » ( fxT-Sl AM (L-2J »« ) )/( SL AM (t tK) -SI AM CL- JJ .8) ) ) 
t A (HVfU-HVfL-JJ)) + MVO.-JJ) 

aOO CONTlftlF 
006 COM I'NUt 

c 

PHOerSS 1 MTtGt r latitudes fhom htghlsi' swath EDGE AT s.p. TO LOWEST 
SWATH furt AT S.P. 


DO 500 TNT s 12.MVLAT 

XI e VI - INT 

DO 0/5 K c IrNOSCN 

IF ( SlAH 06 I»K) .GT. XI) GO TO 075 

.5 l = NO(K) 

IF (61 A>’U»K) ,U. XI) r.O TO 450 . 

MUK) = Noth) ♦ JJ 

GO TO 4?b _ 

INTlPPOLATf tu TWEEN TWO VAlUES FOR THIS SCAN ANGLE FRO* TABLE TO 

OBTAIN, DATA F till INTEGER LATITUDE 


ttrvTAH 

hfvtab 

HFVTAH 
HTVTAB 
HF vTaO 
KF VT All 
hf VT A-M 
hi VTAR 
HF VT A'H 
Wf VTaH 
Id VTA» 

HI V I A'.* 
kf VI AD 
HI V T A li 
HI VTAM 
Hi VTAH 
nr v r ah 
nr v tab 

Hi V f A» 

hi VT All 
Hi V 1 Air 
Hr V T All 
H-r VTAfl 
kf V T aii 
H t V T AH 

wr vta" 
ufvTaI' 
H'F v t a b 

HI v I Aft 
Hf VT All 

nr v tap. 

HF VTAH 

hrvl 

Hf VT All 
HI VTA» 
HI vr AH 
HF VTAH 
HF VTAI) 
Hf VTAH 
lif v 1 AP 
HI V T All 
RFvTAP 
htvtah 

kF VT AH 
hfvtah 
HI VTAH 
H I V I A I) 
Hi V T A *A 
Hf VTAH 
KF VTAH 
KFVT A« 
hi VT aH 
HI VTAH 
HI VI All 
HF VT All 
HI VT All 
HF VT aH 
Kl V I All 
HFVTAH 
HI V I ftM 


HI 


w 


(U 00 


on 




t— 1 

o 0 s 
-- o 

-0 

I 

c 

I 

o 

o 


01 




In' 
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) 

| : ■ 

5 

I . 

k ■ 

r i ■■' 

6 ^ 

t— 1 

ji :' 

I 

| ; ; 

Vi. • • • 

O 

O ■ 

I 

;© 

6 

© 

: o 

{; I 

© 

© 

fir- 

iij: : . : . ; 

© 

o 

l-v ■ I 

O . 

L 


00025V 
000200 
000201 
0002112 
oon2« j 

O ') **2 *10 
00:02 'l 6 
0 U02**O 
0 002<i 7 
0002 * 1 » 
0002**9 
00 02-0 
OOH2S1 
00 0252 
000253 
O0O2S/J 

0 0 02 -b 
0002 -6 
000 2''/ 
000256 

0 0 02-9 
000260 
0002**1 
0002**2 
0002-5 
0002**0 
0002 — 
00*1200 
00112-7 
0i)02Ott 
0 0 02 #•■ 9 
000270 
000271 
000272 
00027} 
00 027*4 
00027b 
000276 
000277 
00 02 70 
000279 
00 02 HO 
0002* l 
000202 
000205 
00020*4 
00020 b 
000206 
000207 
0 00200 
00020V 
0002" 0 
000201 
000292 
01)020} 


450 


a 65 


475 


500 

510 


1F( St a m <L*JJ»K) .NK. 1,1*> .ANO* SLAh(l«ft) .N1 • i.t6) to TO * 65 * 
TlHFllNTrKtKVFlO = 1.F6 
Oil UHU( :jM ?♦ K»K Vfc H) * 1.E6 

jjFL = f X i -St AH 1 1 - J J * h V) / 1 5t AM C L • K 1-SL A H ti- J J ♦ K ) > 

TUO (Tf)TtKtKVI H) = Uvll)-TVCL-,UJ)»UtL ♦ 1VCL-JJ) 

|)t UfJl . ( I h T ♦ K VL H ) = ( SHl > ia » K )- 5PMl ( t - JJ »« n***fcl ♦ 

CONTI Gill 


K s NAijSti 
t = N0(MAI'6CH) 

Atl f s 

* 

CONTINUE 

COMTIN’uF 


((XI-iaftrttL-Jt»K))/(6lAK(L»K)-SLAMCL-.JJ.M)) 

* (HV<L)-HVtL-JJ)) ♦ 


C 

c 

c 


TtST FOR aSCEN'DIMG SWATH OaTA NOT RtGUIRFO OR ALRMDY GENERATED 

IF ( t|Ot BG(<4)) 00 TO 576 

tilt PAf - KPO ) 

SR 1 TE f «*'♦ 90 00 ) 

00 55 0 MM *S ItlM 

CALL FaF.LA ( 1 J 

hR i T I t K t* *9006) T 1 Mfc <MM» I ♦ K VEH) t RL0NG t MH 1 1 »KVEM) » 

* T 1 Mfc { HJirr AOSG N » ri VE H j , 0 I 0 NG( UK* HaDSG N. 6VEH) . TIHF tMM.NOSCH » AVtM) ♦ 

* I>Lf>NG(MM»NOSCN*K Vt H) »A1.T (NMtKVFH) »HM 
550 CONI tt.'UF 

575 CONTI Nut 


c 

c 

c 

* 

c 

c 

e 


600 CONTINUE 

SET MAXIMUM; AND MINIMUM OF S*ATH EDGES FOR TARGET PROCESSING 


MAXI T (KVh'M) : 10 - MX); AT 
MINI I (KVIiM) = 91 -MNLAT. 


C 

c 


9000 FORMAT (6VH REVTAB OUTPUT - tlMF AND DELTA LONG FOR 5 POINTS* AND 
♦ AH) 

9005 FORMAT ( 7Fl«,7,I4) . „ „ _ 

FORMAT (?)M 525/T50 LOOP MFVTaH *616, 2F l5.7) 

FORMAT fTb.SF 14.7) 

FORMAT)//) 

FORMAT (//27M KXLAT* MMMX* MXHNf MNLAT 
FORMAT { 1*40 S |t A K ( } 6 1 1 L ) S * HF14 . 6 ) 

' FORMA) () *1 : M SLAM) }62»L) r*HF I *4.0) 

H (Vni'A I* uoH RfcVlAB fcRHOW - ANoHaLY IN CROSS-TKALR LATlTOOtS) 

FORMA) ( ! H ,?)[* = ♦ 12 1 I X «2t‘L “ 1 1 i t) K « TmAA= »F 1 5:. 6* 1 X *3HJ Js* 11 * IX « 

1<4tU)t L = ,f 1S.6 1 1 X t }MX t s*fc 1 5.6*lX*«HlI*T3»nf l X*5 M»TrYs, J t*1X» 

2*tUU.L = , f }) 

HHltliM 
t NO 


90 10 
9o?0 
9«?5 
9 0 SO 
90 4 0 
9060 
9060 
9070 


kfvtab 

K4 VT AH 
(41 VTAB 
PI VTAB 
Rc VT All 
RFVTaB 
K! VTAB 
R F V T A B 
KFVTAB 
K f V T A B 
Kl VTAB 
RTVUB 
141 VTAB 
Hi VTAB 
NT VTaB 
Rl VTAB 
RT VTAB 
Kl V T AB 

KT VTftB 
HFVl AB 
HI VTAB 
nrvT aB 
HI VtA« 
Rf VTAB 
hr VTAB 
Kl VTAB 
Kl Vl AB 
HI V TAB 
HI VTAB 
Rf VTAB 
RT V T A*) 
Kl V 1 AB 
HI VT A B 
hi VTAB 
HI VTaH 
Kf VTAB 
liF VTAB 
HI VTAB 
Kl VTAB 
HI VTAB 

Hi V TAB 

kfvtab 
HFVTAB 
HFVT AB 
RF VTaB 
Rl VTAB 
Kl VTAB 
hi VT aB 
RF VTaH 
Rl VTAH 
HI VTaB 
KFVTAB 
HF VTAB 
HI VTaB 


TO 


joi 


JI 


p 


si 

e> po 


|0! 




►— I 
O O' 

to 01 
ro| 

^1 
^1 


o i — 


Ijl 




|f 4:% 

I* FLi SWATH* t ,75W15» 0)511 


OOOOOl 

000002 

ooooo i 

.000004 

000005 

000006 

000007 

OOOOOO 

01X1009 

ooooio 
00:001 l 
00001 2 
000013 
0000 1 4 

oooo i 5 
00 00 1 6 
0000 I / 
ooooi » 


O'O 0 03 1 

000032 

ounces 

(JUO0 34 

000035 
000036 
000037 
00003)1 
000039 
0ti00«0 
00O0«l 
000002 
00 0 C 0 3 
000004 
000005 
ft 0 ft ft 0 6 

noooo/ 
00 00 00 
n on ft 09 
(lorooo 
Oft (lost 
(UMl« , i2 
0 0005 3 
060054 
000035 
Oil Oft'. 6 
ft ft 0 ft *1 V 
ft 0 (1 ft Ml 


SMbROMTlMF ShAJH 


SWATH 

SWATH 

swath 

SWATH 


ar*i.n 

StlHlfOlllINF Swath UTILT/FS THE EPHEnFRIS OAU FOR ThF DAY 5PFCIF ItCSWATH 
If) r.fcNf RATE THE LATITUDE and DELIA LOWDlU'Dl DATA MM THE SCAN S) AtH 
ANGIE!) FUR IMF REV. THE DATA IS GE..ENAIED AT OnF DEGREE INCREmEn I SSI ATM 
OF FtCfF'IRlC ANOMALY, bf GINNING AT TllF ASCENDING figtlE . SWATH 

CDHMUW /HMCUX/ _ *** 

1 At PHA1 ,31)0 IADIcO ,X»r f A<2»2) ,X’40I(2V,XUPEGD(2)» lASCNPf2) ,X10C?) , I F LCl) 

HI Of ( 2) „LXO ,L»A , hVb-Vl »+itFt V2» I YM« 1YH11, IDAT » JFDAT , I CD A Y ,NREV IP, XF CCt) 

3N1U.V2I , FW10AV, 1.V2I)aY,LTR ’ 


COMMON /LONS/ . . „ . 

If CCf »r IS *rN.HV«WADTl»S, HEADER (2ft) ,N»llF (2) » NAME I f 2) »TVtf)Pl »ALPHAH, 

?tHtR.Wr,tlft,JTll{6),iMF»l)Tl?(67rPl,rj2,Cfll',HI?,PI32*SA( 3) •RADIAN, 

3 1C AS.: , i RE 1 5 ( 1 0 ) , NL I Nfc., HP AGl • IMP • L INMAX » I SW 1 1' » 16WH ♦NVEH, NOt'AY , 

i .. . . , ■ ii t >1 / < » . Dn. * « ID La V f .1 1 lit' tiF t il \ 


no oo 19 


M AI :t‘A* 

l 'i.»NAr;f l 


Oft ft 020 


LOCjRAL 

i10FM.fi 


0001)21 

c 


‘ 


0001122 


c OflM HN/A t C Nl t M / AC C NHM ( to 0 ) 

0(10 023 


ENOIVAlFitCE (ACCn'IMT 

1),KVFH) 

000024 

* 

X, 

(ACC Mil Hf 

3) »N(J3CN) 

060025 


X , 

( ACCNljflt 

4) , N A 0 S C N ) 

000026 


X, 

(ACCNIDK 

fc) ♦ XN ) 

060027 


X , 

< AcrriHH l 

7) ,Pl R 1 1 ) > 

00 0 02)1 


X, 

(ACCM'ilt 

ft 9 ) , K U A T ) 

060029 


X, 

t AtCN'IHX 

90) ,F) 

000030 


x» 

(ACCNHMT 

91),T)>EH) 


SWATH 
IH CCOH 
I F LCOH 
xicrijM 
s» n 

si- ATh 

urns 
CONS 
LONS 
LONS 
Ct’NS 
CON 5 
CONS. 
SW A.l M 

swath 

S»- AT II 
SWATH 
51- ATH 
SWATH 
SWA fit 
SWATH 
SWATH 
SWATH 
SWATH 
SWATH 
At ft 1 I'M 


COriMUM /ACCFPH/ v „ 

1 IMNODC ( 1 7 *2) » SM ( l ,2) r EC f 1 ,2) »X IM( l ,2) *RT ASt ( 1 ,2) »HP (l»2),TNDt(l ,2) A^Ll F*H 
2,RU(n AfLfl-H 

COMMON /ACC DAT / ACCPAT 

ITV(36?),HV(362),SLAH(36?,3},SPHI(362,3),EN)»C2) ACCF'AT 

C'lHIMN /n AG/ M A r ’ 

11 FIRST , I Vftt, j.SI ART , TEND, TREND H * r ' 

(HMEHRICH 20(3) , YHi3) ,XMUF(2) ,P(3) ,R (3) »F’f"H (2) SWATH 

DtHF-NSlf'N HL(3) 


COMPUTE TRUt ANOMALY OF NORTHtRNHOST POINT ON REV 
JI'AY = 1 


Ht-'P * p I MOO (I WOP 1 
SET CONSTANTS 


HP(JDAT,HVEH) 


tec = f C ( JDAY • KVEH) 
flftlT s t. - |CC«*? 

I HM2 = SUHH1«MI) 

TRM3 = T KM 1/(1, ♦ fcCC*CnS(WNP) ) 


COMI’IIIF FcCEIlTRlC ANOMALY t)F NORTHFNNMOST POINT 
Si IIF r IUH3 *SIN(wM)0/TRm2 


AferAT 

accpat 

F I AG 
Ft AG 
SW ATH 
SWATH 
SWATH 
6W ATH 
SWATH 
SW*Tll 
SWATH 
SWATH 
SWATH 
SV A I H 
SWATH 
swath 
si All! 
SWATH 
SWA TM 
SWA Til 
SWA lit 
S1-ATH 

swaTh 










9 



;/.! ' 

, X • f 

000059 


> : 

(1000*0 



000061 


i: . • ! • 

0000*2 

c 

3 

0001)65 

c 


0000*4 

c 


00:0065 

c 

3 ■ 

000066 



000,1)67 


jx 

0000*s 


1 

000067 

c 


000070 

c 


000071 

c 

**■ 

0000/2 

' c 


5 > 


53 


O 


0 


u 


0 


n 


000073 
000074 
000075 
090070 
0.0 0 U 7 / 
oonovtt 
00007V 
00001*0 
ooooi'l 
0 00 002 
000003 


oti'Ojnu 
ooo» n l 
000102 
oo hi oi 
00 01 OH 

00 0 10'j 
000106 
000107 
00 0 1 09 
ooomv 
0 00 i to 
00011 1 
nuot!2 
0011! 1 J 
oooi in 
0001 15 
000 1 1 6 
000 1 1 7 
nun 1 10 


COST C n . * TIW3)/Fer 

KNPCRVr^l a ACllS(CUSt) 

IF CSInF .LT. 0.0) FNP(kYEH) s THOPT • EMPCKVCH) 


COMPUTE RJGMT ASCENSION OF OttEEMHirH AND LONG. OF NODE AT NODE flHE 


AG = PgCJOAY) V{ftE-XUMEGO<AVEH))*TNOEtJOAV»KVt'H) 

XtONGN a RT ASC C .ID AYrKVEH ) - * r ’ 

K (XlONUN .U. 0.0) XLONCN = XtUNGN ♦ T«GP1 


G 

C 

c 

c 


COMPUTE POINTS! aROUNO REV 


1FL a t 

DEL a |. /RADIAN 

EX at- OFL 

TPER a TPFR - PEHUVEH) 


tin 000 IaJ , 3t»2 


0 

000004 

c 

00:0065 



no oops 


0 

000OP7 


1 

OOOOl'tt 

00 

oo non 9 

45 

0 

00 0090 



000091 



0000O2 

c 

o 

00(1063 

C toft 


oo no 6 4 

c 


000095- 

50 

0 

000096 


000097 

000098 : 


o 

000099 



fc-X = FX ♦ UFL 

|E(T .fP. 30!) GO TO «5f> 

IF (I .fc (1. 362) GO TO 02S 

tvu) s (f x - Lre*siN(tx))/XN ♦ tper 

IF f I V ( I ) .Gt. I NOE f J P A Y »K VE H ) I 60 TO VO 
TVU) e TVCT) + PFRtKVtH) 

GO To i|5 


CONTINUE 

T VU) = TVU) - TNOF C.TOAV »KVEH) 

T»Mfl = 1. - Er.CFCnS(tX) 

SThV s TtO* 2 »STN(tX)/TRM«l 
CDSV = (LOST EX ) - ECC1/THM4 

v * *c os (rosy) 

IF fSluV .LT. 0.0) v s TNIIPI - V 
J M a TV Cl) 


COMPUTE ImPLANF ANGLE FKOM THE NODE AND VEHICLE ALTITUDE (E»*») 


|»t : V ♦ WPCJDAYtHVl in. 

IE fhT. *T. INliPU HI a NT - THDPI 

HVU) = 8E'( JDAY • K VtM) * ThM 1 / C 1 »*f CC*COS IV) ) - !. 

HT s MV (I) 


t 

C 

c 


vehicle r.rDtFNTKii; lattihof and rc« z component oe posiiium 


IV s 5 j N (H 1 ) * S 1 |Ji( X IN( JDA V »RVfcM) ) 
VI AT = AS T N C /V ) 

SI A*'U .UAOSf'N) a VI A l *K Al>I AN 


VEHiri F UlHMTUDE And FCP X»Y COMPONENTS OF POSITION 


SWATH 

SMI 

SWATH 

SKATH 

swatm 

SWATm 

auth 

SKATH 

SMATH 

swath 

SK A T H 
SWATH 
6 1 ' A T M 
SWATH 

SWATH 
SW AlH 
SV ATM 
S * A T H 
SWATH 
SKATH 
S«A T H 
SKATH 
SWATH 


swath 

MAtll 

SWATH 


SWATH 
swath 
SWATH 
SV. A T M 
SWATH 
SWATH 
SWATH 
SWATH 
SV A T H 
SWATH 
SwAlH 
SWATH 
SWATH 
SWftTn 
SWATH 
SWATH 

swath 

swath 

swath 

SWATH 
SV ATM 
SWATH 
swath 

SW AIM 
SWATH 
SWATH 

swath 

SWATH 
SWATH 
SI aTh 
swath 


T 


01 


Hi 


0. 


lDi 


loir ' s ?* 


U i-Ak 1 II VittAAf hi. 


28234-6027-RU-00 
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11 

0001 19 



AA' s o. 

SWATH 

© 


000 i?o 



IF (PI? .It. HI .AND. WT .LE. PI3P) M * t. 

SWATH 



0001? 1 



TEMP s XLntir.M - { wE-XOMEGO ( K V fcM) ) * YV< 1 ) 

SPAT il 



000 \?i 



IF ( I .L7. 36 IT OU TO 6*> 

SPAT H 

© 


ooni?3 



AA a 0. 

swath 


0C<ll?4 



TE N = s IGN (P I2.R12-X Iwt JDAY *KVEH) I 

swath 



ooo i?s 



IF f T .to. 36 IT Tt» = -TEN 

swath 

© 


00 01 ?t> 



GO TO 70 

swath 


0 0 0 1 ? 7 

65 


TFM a aT AN (T AN (W f 1 *C05 (X IMt JDAY *KVEHJ I J 

swath 



oon i?o 

70 


Xt ON a T E HP ♦ TFH -' A A * P I 

swath 

0 


OOOlt'V 



XV = coMvi ADirusixinu) 

SWAT 11 


oim*o 



YV a C(|S ( VL A | )♦ SI M( X| pN) 

SWATH 



000 1 3 1 



ItXLON = XT UN - XL'OHON- 

SWA 1 h 

© 


ooo 132 



5PM1U .NADSflJ) = Oxl ON 

SWATH 


n 

000133 



If (OE’ttT ( T .NaOSCNT .07. Pl2) SPHJ ( I .NAOSCN) » SPMl < I .NAOSCN1 

SWATH 


B 

POf* 1 34 



X - I HOP I 

SWATH 

b 


000135 

C 


1 

S> ATM 


000 1 36 

C 

z 

PONY AXIS IS NEGATIVE OF VEHICLE POSITION- VECTOR 

SI* A T 11 



000 1 V/ 

c 



SWATtl 

© 


0001 3« 



zmt) a -XV 

SWATH 



coo 137 



Zlt(?) a -YV 

sw ath 



0001 «0 



ZHC31 s -7V 

St AtH 

o 


00 01 Hi 

c 


• 

SWATH 



oooi «2 

c 

INST AN I Aft E HUS NODE. VECTOR COMPONENTS (EC»> 

SWATH 



00 0 l <1 3 

c 



5*' ATH 

© 


000144 



■XNOF.lt I S COS(TFMP) 

SWATH 



00 01 Ob 



XNOEl?) - STNllFMP) 

SWAT H 



0 0 0 1 H 6 

c 



SWATH 

o 


0 0 0 1 4 / 

G 

V 

body axis wont vector chpsslo into z-bouy axis 

SWATm 

I 

ooni'iB 

C 



S*> A T H 


ooo l n 7 



Y»tt) a XN0F(?)»ZH(3) 

SWATH 

o 


000 iso 



rm?) = -xwoe(H*7«uit 

SWATH 


00 DIM 1 



YHU) a Xf.DE c II - XNl)El?)»Znil) 

SWAT)) 



nuoiwa 

C 



SwATh 

o 


mini ss 

c 

make Y linn V Axis A unit VtCTOH AND CHANGE SIGN IF VEHICLE lb IN 

SW ath 


ooo iso 

c 

SOUTH*. ON hEKIoPHEKH 

S W; A T H 



OUOl'iS 

c 



SW. AT H 

© 


00 0 IS 6 



Tl HP r SORT (Yttlt ) *f 2 ♦ YBC2I **2 ♦ YH(J)»«?) 

SWATH 


000157 



IF l VI aT ,LT. 0.0) temp a - Tfc HP 

SWATH 



000 l 5 ft 



00 7b 4 a l»3 

SW aTh 

© 


1)01) 1 57 

75 

Y»HJ 7 = Y't(Jj/ri-nP 

SWaTII 

1 

000 160 

C 



sw. x 1 


00 0 1 0 1 

e 

CUMPtITr VeHICLF POSITION vector IN tCN COMPONENTS 

SWATH 

© 


000 162 

c 



SWATH 



000163 



0=1. ♦ ttvtl) 

swath 



000164 



00 100 J 3 1*3 

sw. ath 

o 


00016b 

too 

PUT = -OtZB(l) * 

SW ATM 


000166 

c- 


* - 

SWATH 



000167 

e 



SWATU 

© 


PO'Ol Ml 

e 



swath 



000167 

c 



sw ath 



ood l 70 

c 



swaTh 

© 


0 00 171 

c 



swath 


1 

000172 

c 

cowpuTF swaT'H data for each scan angle 

swath 


00 0173 

c 



S^ATH 

o 


000174 



on 300 r. a l.NMSCN 

SWATH 



00 01 7b 

c 


- 

swath 



0001 76 



IF (SA(W) . EO. 0.0) GO 70 300 

SWATh 

;Q 


0 0 o 1 7 t 



XI 7. a STNfSACX)) 

SWATH 


OOO 1 70 



XtZ a U>4(SA(K)) 

SW AT il 


if) 


Ip 








A] Oi^l A«i» .Vi. ft rilf-iAEr*. ii! I AltUV.V. ».V, jAAuJiu,. JfjS 1. 


31 


01 


II 
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r-:<*\ 


000179 

OOOJfiO 

nooim 
o on i ft & 
ooo l o J 
oo oi no 
oooi ns 

00 01 Kb 

ooo in7 
0001(11} 
000109 
000 1 9(1 
000 191 
non 1 92 

000193 

0 0 0104 
000.1 ° f J 

0001 "b 

000197 

000190 

000199 

0 0 Or! no 
00 0,,'n t 
oun^c<? 
ooo^n 3 
00 02 0 4 
ouo,“ os 

OOO^Ob 

(Kinpo i 
(100 2 of* 
(ion s n 9 
000210 
oon^i i 
ooo;m 2 

000213 
00021 4 
o-:o?r> 
00021b 
0092T7 
000211) 
0-0-0 ',■> 1 9 

noo 2 ?o 

o-on t »?i 

000222 

oon^?i 

00-0224 

00022s 

(lfi022(« 

0002 ? r 
00022H 
oon,“?9 
0002*0 
ooivm 

0 U 0 V 
00-02 ’S J 
00 ^ u 

n o n 2 V.* 
non, 1 ((> 
O00(’1/ 
n 0 n.“ VI 


C CENt»ATt C^HPU^ENTS Of IfK OIKFCTION VfCTUR M CURRENT SCAM *NGLF 
C 

DO ISO L = 1»3 

iso xl u ) ■ xi v*ymii > ♦ xtitzwu 

C 

t GfcNF»ATt c<IMf OHfcNir b ( ! .F • » out PuflDUCt OF VFCTOHS Xt AND P> 

C 

XI HAG s SHHT (XL ( ♦ XU?)**? ♦ XL f 3) **2> 

H = 0.0 

0'» 2U 0 L - 1 * 3 
?00 B = U F XI U )*PCL) 

B = tt/xlMAB 


: GUipuTr distance s 

JF f(H*B - t n»0 4 1.) .GF. 0.0) GO T« ?25 
G ft TO ?9S 

?2S GONTtNuF 


s s u ♦ Sort ciifh - d*o ♦ t.) 


snath 

SWATll 

swath 

SWATH 

SWATH 

swath 

swath 

SWaTh 

swath 

swath 

swath 

SI'ATh 
SWATH 
SW AT|( 
si- ATH 
S! ATH 
SWATH 
SWATH 
SWATH 
SWATm 
SW A T H 

sw aTh 
S* ATH 
SWATH 


If fAOSUUi)) al.ta 1.0) GO TO Z7S 

Hit HP £ 5UiN( I ..Pf5) ) . 

H(3) = MFMP 


C 

C 


SW ATH 

TEST FOR i-N'l'FK-SfCI IOM OF THIS SCAN VECTUR WITH EAHtH* IF NonF GO 300 SWATH 

swath 

IF ( S .GT. 0.0) GO TO 295 SWaTH 

Sw ATH 

COHPUIF fcP COHPflilFNtS OF VECTOR FROM F.AW1H CfcNTFH 10 INTERSECTION PIS'- ATM 

SWATH 

DO 2S0 L a 1*3 SWATm 

2 50 HtU = P(l) - S*XI (L)/Xt MAI, SWATH 

£ SW, TH 

C COMPUTE r.j fltFNTwlC LAI. AND DELTA LUNG. FUR THIS INTERSECTION POINT SWATH 

C . SWATH 

ii w AT t| 
SWaTh 

skath 
swath 
SWATh 
swath 
SI \> 
S‘.-' ATh 

swath 
swath 

SWATH 
SWATH 
swath 
SwaTH 
SI' ATh 
sw A TH 
SWATm 

swath 

swath 

S W A T H 
SWATH 
swat If 
S'- ATM 
SW A T l| 


?7S 


280 


285 


cm.-Tinuc 

SLAIUT.M * A’*IN(P(S))*PA02 AH 

IMP = A-T-AM2 1 M (2) *R (I-)-) 

T'F. M = pTHGbUM-iP) - XlOflGN 
IF LG £ 0 

IF ( AdSITLM-DXLUNJ .IT. P12} GO TO 290 
TF ( Ifl U .M. N) CO TO 2H(J 
IF TTWH .I T. 0.) r.u Tfi 285 
I-F’LG s fHt * I 
f-r II = )f H - twoh I 
I, (I TO 2f0 
TTrt = TWUI'I - TIM 
J i U. = I T 11. ♦ l 
GO tlJ 2«0 
288 T ALI fAFFIfd) 

N»If} ( k. * 1 1 “1 0 1 0 ) XL(TNr,N.TFMitOXL0N*RfI).R<?)»IFLG 
240 O'lNttMlf 

si’iiiu.w) a mi 
1,0 to 300 




( 


r 


| ( 

|3 

i. 


\ 


I! 


h 
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jttwrr •^3|if^* , ^' , * l :>?-”-' *'-; : £’i*\ ••.'•i ' .*;<* . ". .:'•* ','■ ''*'■ " 




© 


9 


© 


© 


© 


:ii? 


fr»0239 
0 00 240 
(MMV?«l 
00fr?02 
OO'OPHi 
non?44 
0U(k2<l5 
00'0246 
0002/17 
000208 
000249 
000260 
0002S1 
0002V2 
0002*1 A 
0'0 02V« 
00<H‘Vi : 
0002 SO 
00O2'i 7 
0 00 2'itt 
0 00 2 * 1 9 
non 2 60 
00 02b l 
000202 


* '•- <i 

iL J 




000265 

© 

! . 


000264 

000265 

00026b 

© 


0IHJ267 

I 

000268 


900269 

O 


flu 0270 
0 Ofl 27 1 
000272 

O 


000273 
(10 0274 



000275 

© 


000276 



00 0 27 7 



000278 

© 

a 

0 00274 
<100260 


000281 

,0 


000202 


000285 



00(1284 

O 

•jrx 

.>■ 

000205 

O ' 


1 


O 






H h ;'¥ 


7tWG LATItI'UK ANT) LUNCUUOF DiFEENFNCfc VALUES FUH THIS SCAM ANCLF 
29*5 


CONTINUE 
SLAM (I ,,K) 
SPHUI.K) 


= J .OF 6 

= | . GCb 


300 continue 


c 

c 

c 


COMPUTE OftTA AT N. P. AND S. P. 


SWATH 

SWATH 

SWATH 

SKATH 

swath 

SI ATM 
Mv A I H 
SWATH 
S'ATH 
SWaTH 
SWATH 


029 


050 


000 


un tu ao 0 

c out 1 hut 

tx = TuP(KVfH) 

TEL = 2 

on to 40 
continue i 
MSP a wEP ♦ PI 

TPM 3 = THHt/t t * ♦ fcCC*£rtS(nSP» 
S 5 T.F = TKM i*St N (WSW ) /THm 2 
COST a (I. - TRM57/ELC 
EX = ACHS(CnsF) 

IE ( njK't .IT. 0.0) -tx e THOPI ■ 
1 FL si 
GO TO 40 “ 

CONTINUE 


EX 


SW ATM 
SWaTH 

swath 

SWATH 

SWATH 

swath 

SWATH 

SWATH 

SWaTH 

SWATH 

SWAtH 

SWATH 

SWATH 


£ 

C 

C 


600 


CONTIMUF 
IF * .NOT. 


LiotHsCD) cn to 620 


6 VO 


UADSC a NAOSCN-t 
CALI F Jf CTt?) 

MHITLF (»t 9000) 

DO MO 1 = 11,3:62 
CALL PArtt-B'CT.) 

«R1TL(K ('»*> 0 0 5 ) ( CSLAK(TtJ) , SPH 1 M , J ) » J‘ 

continue 


l tNOSCN) ,HV (n*TV(I >»t) 


% 
m. 


9000 FORMAT (62H 

x Tint j 

9009 FORMAT ( OF 14. 7 ,14) 
4010 FORMAT (2bH IFCrAIIUN 
620 HE TURN 
t«0 


SWATH OUTPUT- t AT. AND DELTA LONG F0« 3 POINTS* *LT 


LIMIT ON SWATH *Sf 15 . 8,131 




m 




M- 1 


♦ NtW 

*♦-! 


*NfcH 


SW' A T H 
SV.aTh 
SWATH 
SWAtH 
SWATH 
&W>TH 
SWATH 
-• SWAtH 

swath 

SI ATM 
SWATH 
Sf J ? 
SWATH 
SWaTH 
SWATH 
ANOSWATH 
SWATH 
SWAT FI 
SWATH 
SWATH 
SKATH 


la; 











f .S'iX 

._ * •••■/ 

<» Fir WHlTSHf i *750925* SS»Ofl 


00000 1 
000002 
00 00 nil 
000000 
00 00 Ob 
000006 
0 0.0 0 0 7 
000003 
000009 
0000 10 
000 0 1 1 
00001* 
0000 13 
0 0 0 o ! 0: 
0000 15 
000016 
000017 
00 001 6 
no nu i v 
no/noro 
oooo? l 
0000?* 
oono?5 
0000? 6 
00oo?5 
0000?6 
00 00? 7 
0'JOO?» 
0 0 0 0 ? 9 
000030 
0000 ill 
000 03? 

oo oo ii 
000030 
000035 
000036 
000037 
000030 
(IIJ0O39 
00 00 00 
00000 1 
000002 
ooooo 1 
ooo ooo 

000005 
OOflO 06 
00000 / 
000003 

oo no 00 

oono'-o 

000051 
000 0'' 2 
000053 
flonoso 
non o r »5 
000Q56 
000057 
0:0 0 050 


» 1 


SUblfOHT I’Bft WHlTSHflOPT) 

Tuts rout i me inj t i al l zrs. hri tes and terminates output records on 
Tillf SWATH TAHl.F Ml SWATH REFERENCE FILES. 

NiiTt 111 I? IfUUtlor MUSI (IF RfcGOOtiY FOR UK TV AC AND Till PDF. 
cniiMOW /lons/ 

lit CCF *C | S*rNUV t'KA'OTUS t HEADEKT 20 ) tNAKE (?) .NAME! ( 2 ) * THflPl* ALPHAH* 
?IHkSt Wt *URiJl 1 1 ( 6 ) .(HUH I?( 6 ) »P! *f J? rCMU *P 1 ?* PI 3 * • S A ( 3 ) «R ADT AN* 
Sir A St , i>H T 5 f 10 ) ,N| lNL.»IPAf 5 t ♦ i NP ♦ L I NP A X » I S W J P • I SH R , N Vfc H , NUO A V « 

0 { V H I P ( 6 ) * 1 V ?T | M ( Or) « Kn« Ttmu 1 1 *L 1 OtHfiC 0 .) 

KFAl l)APt«HAtfFl 

jUICTCAl. ClUt 
coupon /ntcr.oM/ 

1 Al PMAT.X'Hf I AOf?) *X|iF IA(?t 2 )»AWUf 2 )»XUMtr,OC 2 )fTAStHPf 2 )t*TOm« 
?prRTUP (?) »LKU+LOA*NREtf I .MRfc V?» I YK « XYHlf * IDA I * IF OAT » ICOAT *NRt VIP* 

V«?;P, 1 V 1 l;,A y ♦ 1 9 *<>At » |- Y P 
COMMON /AfCf PIV 


WRITS* 

WRITS* 

kpmsh 

WRITS? 

CONS 

LONS 

CONS 

CONS 

CONS 

CONS 

CONS 

hi ecu* 
ni cni« 
hi CCt)H 
51 T 1 
Art r ph 


mi, .'Of C 1 /♦?) ,S|!f | »*) ,tt(l*2) »X1N( 1 *2 ' ,i;1 ASC ( 1 «?) « HPT 1 *2) *TNt>l< J *2) Afct pH 


? »ii tin 
C'llllion /Nf’tv/ 

IX! OfU,( | *2) fllRtV (?) 
litiinisjON Nh't. vc T{ 1 * ?) 
t OUT VM 1 NCI (NK1 V( I l*««f VC It 1*1)) 
common /Ska r/ 

101 1 00 )*DU)NMX ( 1 001 * T IMF 1( 100*3) tPLPNC, 1 1 1 00 ♦ 31 * INL AT (?) « 

?I:SL A I (?) * ISOSTW *NI. AT #t. ATNO(100)*IALt(100) *ir.HDl (17) 
coHMOM/AicfNim/ ACCiiimr too) 

1 0(1 IV At f net (ACCNilMf I>»KVtH) * ( ACCNU'1(P91 »KOAV) 

CftitSN.lN/T'L AK'IS/ CAH'US(«»1 7*?) 

CflMHUt! /t L AN/ 

Ilf 1 H 51 , 1 Vf II* IS 1 A HI * T E’NO * lot NO 

COUPON /WAY/ COAST ,'i 

OTMF NS rOH Afanyl *XnIAT(?) .XSLAT r*»»VtTIM(3)»V?ilM(3) 

Cl Ml iiSiO!l Al T I C 1 OO) *.A'7NO( ! 00) 

t Oil T V All Nr-fc ( At T If 1 1 * T At Til)}* t ATWlIt 1 1 *t ATNR ( 1 ) ) 

tOUIVAl f NCKXCASI *ICtSL>*(XVt*'»"VFH)*(XNUI'AY.MU '/iY>.( XC*T i NLA T 1 » 
1 (XNI.Al (1)*lNtAITl)) *(X5|.AT( l) ,TSLA? fl)l.lVI11P i l) , lVlTIHtm* 

2( V2T1H(1 ) * I V2T1 M( I ) > * f SnS I k ♦ ISllS 1 R ) 

I'O 5 Is 1*600 


ATI V - n. 

C&MIMjF 

If T I OPT . 10 . 2 ) no TO too 
IF ( TOP | .Ml. 3 ) no TO 200 
n ( TUP I .10. Ajc-O To 300 
OFF INF f li t Hf 1 101:»300»U»IOOMl 
fiAPttn 
MAMET?) 

XCASl 
XV F If 
X NO OAT 
X M AT ( t ) 

X M| AT (2) 

XSI AT (1 ) 

XSi AT (2) 


AT 1 1 f 
A ( ?1 
AT 3) 
aT«> 

AT 51 
AT /) 

A ( 0 ) 

AT*)) 

AT 10)1 
OO A Tel *3 
K =1 + III 
L = I +13 
AfK) = V I T Til T I) 
ATI.) e y.’IIlKI) 



AretpM 
M't v 
(•if l v. 

Ifl'fcv' 

,, 1 't V 

skat 

SKAT 

ska; 

1(1 i tsw 
hills* 
M MS* 
H AO 
H AS 
St T 7 . 
Wf’l T S? 
HR 1 IS? 
Wf ITS? 
W MSN 
HI IT 5 W 
hi- I TSW 
hi I IS* 

kritsh 

HR I T S? 
UK ITS? 
HP ITSH 
Hi I TS* 


WP J TSW 
MR i ts? 

HRITSW 

HR MS? 
WRITS'* 
HP MS* 
.I’MS* 
HP 1 T S? 
HRITSW 
HR 1 T SW : 
WKUSW 
HR 1 TS? 
Wl ITSW 
KR 1 T SH 
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I f ^ T - ‘ TYps^ 

; -;* 1 ^^| 2 r=: V ^T : ^ ^ ;r"* ^-i^-rf- ".^'-'. ? v! '' " '■= : v < >??*: ;v>-f-rl i 


y :«!»«?;; r: 


r> 


© 


Q 

O 

o 

: I 
O 

o 

D 

0 

|. L? 

o 

o 

■W 

© 

b 


nooo r >v 

qoqom) 

OoooM 

0U0l)b2 


© 

0(1 i)0 hi 


00 Oil 1.4 
0U00/.S 

D 

OOnObb 

000047 


nonobti 

O 

OOIHOA9 


0000 70 


0040 7 1 

o 

J 

0 0 0:072 
00 no 7 3 
000074 

O . 

000075 
no no vs 


000077 

o 

000070 


000079 

o v o n f u 

OOl'tiM 
t>« 1)0 «<! 
OOOOMJ 
oooo r 4 
0 lino «S 

0000 Ob 

000007 
oonoou 
0000P9 
00 01)00 
000091 
000092 
00 il 0 4 i 
000094 
000005 
00 no Ob 
00 00 0.7 
o« on oi) 
oonuoo 
0:00100' 
oonim 

00 0 10c! 

ooiil n ) 

o ti n t o o 

000105 

00010b 

000107 
0001 00 
000109 
0 00 1 1 0 
non i il 
1)001 u* 

000113 
000111) 
0.001 15 
OHO lib 
non ii / 
nil oi in 


•iW'l TS* 
ht-nsw 
W N 1 T »« 
WH1T5H 


s cONTimif 

Af 1 7) s SOSTN 
Alb) r XLAT 
Mtv.ns s #*Nl.At 
• 1 INMTswlO'l) 

HIM Tt . < iSHTl) ' l . tRRsbOO) (« Ml * |»1»NUHDS) 

' NfrftUP TSPK Wl-'MSH 

KIM It ( iSkR) NAHKl(l>*NAHfcH?)»ir*St»NVtH*NOPAY»CIVlTlHU»*l®l*il » Kf)IT5W 
l c I v«?i in( 1 1 1 is 1 * 3 } ♦ ( (exkns t 1 * l *J) » J=t *?) »i = i» 3 ) »xuPfc.r.oli) »xoKtr,of«:) * 91 ts* 
2**htv( i j *X!*n(2V* (SMI) * I = !r3i * (All) »!=?3*5«> <rTT 

HD ID SOO 


100 


110 


1?0 

130 


I si s Nl A T 
l Sc! s ?*NI At 
JSi = •>♦«! AT 

bn lin t=i»«lat 

All) = AT until 

a f ism) = alt id) 

L'lNiimi 
(jf) 1 30 J = 1 , 3 
IP 1 = (J-l)*NLoT 
on 120 l = i *ML*I 
A! 1 *>«*♦ JP I 41) = TlHt l (!♦.»> 

A‘l 1S5 t IPX ♦ 1 ) - ULOIlM (t.j) 

COMiPuP 

cnuTimit'* 

runs = Tt i*o - iRAS(i) ♦ i 
lin.ru S ClnPS ♦ 1 ) ♦ (K vi-M-l) ♦ M>AY ♦ 1 
T 1N0(TS<'T»* IRFL'J) 

Hllllt (IJ'KTH * [111 rtifl PHabOO) (AfI)»I*1*N0WDS) 

HU 1 Til 1 SKb ) K vPH*KI)AY*KP C 1 rKVtH) * fll»£V ( K VIM) * ( TMNPOF ( I » K YFH) ♦ l» 1 » 1 7 ) StTI 



SET3 

wpi rs« 

ril-USK 

nPITSW 

nPI Tsw 

#>P I TSK* 

■*> P I T S K 
h PlTf,Vl 
ni-ITsw 
*|-’ITSW 
nPITSW 
hi 1 T S'* 
wlv I ISK 
«!> 1 T$N 
hKlTsW 
M 17 
M 17 


1 


900 


STTI 
KP1TSW 
SMI . 
.- ST 12 
S' I? 
STTI 

Vf MICtf. » 1 X * l 1»3X*3H0AY» ST T 1 

ST 1? 


1(C AlfOS ( 4 * I *KVEH> t I = t * 1 7) t ( IftKRI ( 1) ♦ t *1 * t 7) 

IM.UIM .L1T.-Hir.(2})1.0 TO 150 
Ml = NSrVlKVt.H) 
tAU l’A f VU((«HT-0 
KM Tt 1 h 0 ♦ b« H) K Vt l*»« l OAY 

p OR MAT ( 1M0»?7X « (PHahATH KFfERPNf E KFCOKt) 

11*, 13) 

MMTtfKOrOOt} 

«01 : i ; IJh v AT ( TltO , 33X « 3B11KP Nltrv TtiNODE TA-TOS) 

HIM TUkIV, OOP) WP( 1 « KVfH) * (( I * TMWODt ( I ,KVtH) ,C AKUS I 4* I * KVtH)).*!*l* 
l MM 

902 TflRMAT { 111 * ? 7 X , T1 3 *b ,3X » 12 * 4X * M 2 . b , 2X » F 13* b//»t I Ht *4 (Xt I?* 0* * 

i!tt 2 .b.px,r i 3 .b/n • 

CALI Pa» 1 P(NlM*4) 

K P I it 1 n f1; , 4 0 3 )' K Vl' i I ,‘h 0 A Y 

903 PliKMAt ( llll)»27*,?ttHSKATH T Abtt RECOWD VEHIILE » IX » 1 1 ♦ lX*3H0A Y* 1 X » 

IIS) 

W IMTtt Ktl* 90 4) 

904 M'HMAT( 1 H 0 ,nx»P. 0 H LATNO IALl TTMT(l) T1PL(2) IIHE(S) 

11(1) pi nfif.i ( 21 oLO««;i(3)J 

hi! I T* I K (I ,<tns ) ( U ATMOt t ) , I ALU I ) » tt IMt 1 ( I * J) , J = 1 . 3) * ( OLONOt U»J)» 
!J= 1*31) *1=1 *1)1 AT) 

905 HOltiiAl ( 111 , 15X, t l,VX,|5*3X,T5.0*«X,F5.t),4X,T5.0*3K* 

1 h 1 2 .h * 2 X *1 1.2 . 6 ♦ 2 x » fc 1 2 . b ) 

1 <50. CON T 

(ill Tt' •,!)« 

i»OI) Of Pin 1 = 1 , »‘L A T 

All V = A t UO ( I ) • 

A ( 1 Till A)) = 1)1 llMMI(l) 


SMI 
SI 12 
SMI 
SMI 
ST 1 1 
Sf 13 
SM? 
ST 11 
ST 1 1 
SI 12 
SM U 
DL0N0SM2 
ST 1? 
ST T t 
ST 1 1 


ST 1 1 

kMTSW 

hP 1 T 5 W 
ST T 7 
M I 1 


l | 

1 ,1 

I : 


I ' 
\] 


I , 


|0I 


ill 


OQ 

a 


o 

o 


♦ NIK 

♦ MLH 
•*-l 


*15^1 

pj o° J 

pot 

£ I 

tl 

O' I 

0 1 
N) 
-J 

1 

w 

f I 
§1 


In 


*:• ■; ■;#?!■' *; 


■''CS^'^'":^- ■ ; -v' ""f' :" 5 ’. •!*;; 


>. v ’ .;•. 


; : -'y - 4 - V -«'i ; > »; .. 


0001 J 9 
ouoivq 
000 1 ? I 
ooo i?i 
000123 
000 1 ?‘l 
0001 ?S 
0001 P 6 
0001 ?/ 
no' .?o 
00ii/l?9 
ooo' 15 'd 
000 nl 
000.112 
000133 
0001 10 
noons 

000 l ib 

oooi i / 
ooo no 
soon? 
non i«o 
000101 
000102 
000103 
000 100 


AU+2*nUT) a IHONMX(I) 

210 Cf’NTIHIjt 

1 V- H 1 s I‘fcMU - 10 * 5 ( 1 ) ♦ 1 
I WHS c IifcMO - IDAS lK VfH) ♦ t 
xi.hrH = (THiM»n *(Kvtn-D ♦ iwku ♦ 2 
M'NI‘CIsK I H'' I'Kf t'!l . . „ . 

WH 1 n f 1 S*Tu ' I Kir N‘fl* RRsbOU ) (ACl)f I*l»M)"0s> 

xri.Nni. i in soo 

GAU f ARHf*( , 'LAT*Ol 

910 po i T 1 A r ( V H n 1 ^ H Va H £> WA T H I Atilt SFARCH RtCORt? VFKlClt 

Wt'lTHKO.VlM ' 

OlS >0K 1Al (1H0t//Xt3 /HI AT NO OlOWH* DIONMN) 

9?0 ft'K'IAl ( 1M r2lsXtI3t3XtFn.Af9X.U3.fr) 
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PART I 

PROBLEM DEoGPu 


* 

r-TION 
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UTILITY PROGRAM GRID 


1.0 SCOPE 

1. 1 PROGRAM CAPABILITIES 

This utility processes NASA's climatology tape to obtain the 
weather index along with its associated latitude and longitude. It then 
converts the latitude and longitude to a grid no pair (I, J). Using J as 
a record number, the utility writes a record onto an index matrix 
location file. Each record contains all the weather indexes associated 
with a given J value. 

1.2 OPERA TIONA L A SSU MP TIONS 

• The weather index is in the range from 1 to 16000. 

2.0 INPUT 

2. 1 CARDS 

2. 1. 1 Data Quantities 

MINDEX - maximum number of index points to process on 
the NASA climatology tape. Range 1 to 16000, 
nominal value is 16000 (used to reduce run time 
for debugging cases), 

2. !• 2 Card Format 

C. C. 1 5 

MINDEX 
, I .1 . I I 
15 

2.2 FILES 

The only input file is the NASA climatology tape assigned to 
WEATAP - unit 13. See Section 2.4 of the Users Manual for a 
description of the file. 




SING 


M FLOW 
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Read the data card 
to determine no. 
of indexes to 
rocess 


Perform 

initialization tasks 


Set ICT 
(index counter) 


Read a record 
from WEATAP 


Convert the latitude 
and longitude to an 
I GRID, JGRID pair 
as specified in 
Equations 1-6 


Store the index no. 
into the IGRIDth 
position of current 
record JGRID 



Write record JGRID 
onto INDMAT - the 
index matrix 
location file 



ua 
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3.2 EQUATIONS 

Given 0 - latitude in radians 
X - longitude in radians 
10 = 125, J0 as 125 - North Pole index set 

Compute stereographic projection 

1. 0* = ABS (0) 

2. R - 124.817494012 * tan( ^ - ’|— ) 

3. A = X - 7T/18 

4. FI = 10 +' R * cos (A) 

FJ = J0 - R * sin (A) 

5. If 0 is minus FI = FI + 2 * 10 

6. I GRID = FI + . 5 
JGRID = FJ + .5 

I GRID - the horizontal axis grid coordinate 
JGRID - the vertical axis grid coordinate 

4.0 OUTPUT 

4.1 PRINT DATA 

There is no normal printed output. 

4.2- FILES 

The only output file is INDMAT - the index matrix location file. 
See Section 2.4 of the Users Manual for a description of its contents. 

5.0 ERROR PROCESSING 

5. 1 GENERAL 

There are -only three checks made for errors, one of which is 

fatal. 
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5.2 ERROR CHECKS AND MESSAGES 
Fatal 

1. A check is made to make sure MINDEX on the input card 
is between 0 and 16000. If not, the following message 
prints and the program stops. 

Message: 

MINDEX IS NOT BETWEEN 0 AND 16000. PROGRAM IS 
TERMINATED. 

Non-Fatal 

2. A check is made to make sure the index no. read from 
WEATAP file is between 1 and 16000. If not, the index 
no. is not included in the current INDMAT file record 
and the program, reads the next WEATAP record. 

Message: 

THE INDEX NO. READ FROM WEATAP IS NOT BETWEEN 
1 AND 16000. THE DATA IS IGNORED. 

3. A check is made to see if an IGRID, JGRID grid pair has 
already been assigned an index number. If so, a message 
is printed and the current index no. replaces the one 
originally stored. 

Message: 

THE GRID PAIR IGRID nnn JGRID nnn HAS AN INDEX 
NUMBER ALREADY ASSIGNED. 
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COMMON STORAGE ALLOCATION 
Name DIRAC Size 


Function Contains data for INDMAT direct access file 
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Description 



Index array for CDC to support IN DMA T 
file ______ 


One record for INDMAT file current 
record to be read/written 


The position ir IREC in which to store 
IGRPT (row no. ) . '••• > 


The current column = rec. no. to read 
or write _______ 


The previous value of JPT 


= 41 for hand off case test 
= 251 for final version 


Sym- 

bol 

Units 

i 




k i 
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COMMON STORAGE ALLOCATION 

9 

Nam e WEATDT Siz e 

Function Contains data needed from weather tape 


Pag e of. 


Name 

Di) Ten- 
sion 

For- 

mat 

Description 

Sym- 

bol 

Units 

IGRDPT 

1 

I 

Index no. - 1 to 16000 



LAT 

4 

I, A 

LAT(1) + deg, LAT(2) - min 
LAT(3) - sec, LAT(4) - S or N 



LON 

4 

I. A 

LON(l) - deg, LON(2) - min 
LON(3) - sec, LON (4) - E or W 



IA 

(500) 

I 

Weather tape input record area - physical 



IB 

(50) 

1 

One logical UNIVAC tape record 



IC 

(30) 

I 

One logical CDC tape record 
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PART III 

LIST OF SUBROUTINES 


AND 

SUBROUTINE CALL STRUCTURE 


Name 

GRID 

RDGRID 

WRGRID 
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LIST OF SUBROUTINES IN GRID 


Function 


Main control routine for GRID program. It reads the 
input control card, controls the reading of the weather 
tape, compute t latitude and longitude and controls the 
writing of the index matrix file. 

Reads one record from the index matrix file. 

Writes the index matrix file. 


RDW^ETR Reads the NASA weather tape 
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SUBROUTINE CALL STRUCTURE 


D 


WRGRID 

RDWETR 

RDGRID 
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PART IV 

SUBROUTINE DESCRIPTION 
AND 


FLOWCHARTS 
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SUBROUTINE GRID 


Purpose: 

This is the main control routine for the GRID program. It reads 
the control card, controls the reading of the weather tape, computes 
from the latitude and longitude associated with a weather grid the I, J 
coordinates of the index matrix and controls the writing of the index 
matrix file. 

Input: 

The quantity MINDEX is obtained from the control card, 

TGROPT, LAT and LON are obtained from the file IWTAPE, 

INP and IOUT from FLAG COMMON. 

Output: 

MAXJ records on file IGRDTP. 

Linkage: 

None. 

Subroutines Used: 

CALL RDWETR(IRC) - IRC is relative logical Rec. No. within a 

physical record. Initialized to 1 first 
time only. 

CALL RDGRID - Read 1 record JGRID from IGRDTP file. 

CALL W RGRID(IOP) - IOP = 0. Open IGRDTP file and initialize 

all MAXJ rec. to 0. 

IOP = +N. Write record from IREC to 
IGRDTP file. 

IOP = -N. Write record and close the 
IGRDTP file. 

Local Variables: 

INDEX - Count on no. of weather index rec. to read from IWTAPE 
RLAT - Latitude in radians 
RLON - Longitude in radians 


Processing: 


See flowchart for logic flow. 

Equations 1-6 are described in the Problem Description. 
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ENTER 


Read card 
from INP 


Is MINDEX 
= 0 


Subroutine GRID Block Diagram 


^ Call WRGRID (-n) 

4 to write last rec. 

s-/ and close IGRDTP 

file 


Set MINDEX 
= 16000 




Is INDEX 
> MINDEX 


Is MINDEX ^ 1 
and s 16000 


Print 

message 


ES 

2 

1 



Rewind IWTAPE 
Set IRC = 1 


Clear IREC 
array to 0 


Store IGRDPT into 
IGRID position in 


Set JSAVE to 0 
(initial JGRID 
save loc) 


message 


Is IGRID position 
in IREC 10 


Store JGRID into 
JSAVE 


Call WRGRID(O) 
to initialize 
IGRDTP file to 
zeros 


Call RDGRID to 
read JGRID rec. 
from IGRDTP 


Se t INDEX 
to 1 


Is IGRDPT 
a 1 and 
£ 16000 


/ 

/ 25 


Call RDWETR(IRC) 
to read 1 record 
from IWTAPE file, 
obtain LAX, LON 
and IGRDPT 


Convert LAT 
and LON to 
■ radians and 
store in RLAT 
and RLON 





Compute 
IGRID and 
JGRID using 
Eqn. 1 -6 


Call WRGRID (+n) 
to write JSAVE 
record from IREC 
onto IGRDTP 



Si 
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SUBROUTINE RDGRID 


Purpose: 

To read one record from the direct access file IGRDTP. The 
Record No. to be read is stored in JGRID and the record is read into 
IREC. For the CDC, READMS is to be used and for the UNIVAC, the 
direct access read. The record length is 500 words. 

Input: 

ICDCIN, JGRID in DIRAC COMMON. 

IGRDTP in FLAG COMMON. 

The data record on IGRDTP file. * 


Linkage: 

CALL RDGRID. 
Subroutines Used: 


None. 

Processing: 

Give a call to READMS (CPC) or read from unit IGRDTP for 


UNIVAC. 
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SU B ROU TOE W RGRID 


Purpose: 


r irvRnTP D A file, cr write one record 
On option, create a NULL wKU ir u.a, 

the JSAVE location from 1REG or write a record and close the file. The 
record length is 500 words* 


Input: 

ICDCIN, IREC, JSAVE, MAXJ, JGRID in DIRAC COMMON. 
IGRDTP in FLAG COMMON. 

Output: 

Either a NULL file on IGRDTP or one record in the JSAVE loc. of 
IGRDTP from IREC. 

Linkage: 

CALL WRGRID(IOP) 

IOP = 0 - Generate NULL file. 

IOP = +n - Write one record. 

jQp - _ n _ "Write one record and close the file. 

Subroutine s U sed: 


None. 

Processing: 

IOP = 0 


= +n - 


IOP = -n - 


Give call to OPENMS for CDC and define file for 
UNIVAC (MAXJ gives no. of records), and then 
write MAXJ records from IREC using WRITEMS 
or WRITE (IREC has been cleared to zero). 

Give call to WRITEMS or write to WRITE IREC 
on JSAVE record. 

Give call to WRITEMS or write to WRITE IREC 
on JGRID record. Give call to CLOSEMS or call 
CLOSE (IGRDTP, 0) to close the file. 
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SUBROUTINE RDWETR 


Purpose: 

This routine reads one physical record from the NASA weather 
tape. I 1 ; unblocks the record and stores one logical record into working 

storage. 

Input; 

One physical record on IWTAPE unit. 

COMMON FLAG 
IWTAPE 

COMMON WEATDT 
LA, IB 

Output: 

COMMON WEATDT 

IGRDPT, LAT, LON 

Linkage: 

CALL RDGRID(IRC), IRC is a logical record count 1 to 10 initialized 
to 1 by the calling routine for first call only. Routine then adds 1 to it and 
resets it to 1 as needed. 

Method/Procedure: 

Use NTRAN to perform the read from the weather tape. 

Subroutines Called: 


NTRAN. 
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PART V 


SUBROUTINE LISTINGS 
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PART I 


PROBLEM DESCRIPTION FOR 
LUMP PROGRAM 
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Problem Description for LUMP Program 


1.0 SCOPE 

1.1 PROGRAM CAPABILITIES 

This program will take substrata historical data cards and sample segment 
ID, crop window, crop window error and statistical data cards, check the various 
fields for valid input parameters and write these cards as separate intermediate 
files on disk. It then reads these intermediate disk files and generates the Seg- 
ment ID file, crop window file and the substrata historical file. 

1.2 METHOD OF PROGRAM DEVELOPMENT 

A main driver will do the organizing and will call routines FILGEN to gener- 
ate the disk files and LUMP to generate the SEGMENT ID FILE, CROP WINDOW FILE and 
the SUBSTRATA HISTORICAL FILE. Existing utility routines will be used for angle 
conversion, data conversion and random number generation. Other existing routines 
will be utilized where deemed necessary. 

1.3 OPERATIONAL ASSUMPTIONS 

• Only 1 case is run at a time. 

• Data Input Cards for the SAMPLE SEGMENTS are sorted by country, region, 
zone, strata, substrata, segment. 

• Data Input Cards for the SUBSTRATA and CROP CALENDAR data are sorted by 
country, region, zone, strata, substrata. 

• Program is a one pass process in which cards are checked, written to 
disk if no fatal errors, and then LUMP is executed. 

• Maximum of 2000 training segments total. 

• The input cards for SUBSTRATA HISTORICAL data, SUBSTRATA STATISTICAL 
data, CROP CALENDAR data, CROP CALENDAR ERROR data, and SAMPLE SEGMENT 
data are stored on separate input files. 

o The United States must be assigned the symbol 'USA 1 and Canada 
must be assigned the symbol 'CAND'. 
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2.0 INPUT 

The only input media to this program is punched cards or card images 
on disk or tape files. They consist of a control card which includes the 
case number, random number seed, list option, training segment flag and unit 
numbers for the five possible types of input files. The other cards are the 
Substrata Mstorieal Data, Substrata Statistical Data, Sample Segment ID data, 
the Sample Segment Crop Window data, and Crop Calendar Error data. (These 
last five sets of data may be card images on a disk or tape file.) 

2.1 LIST OF INPUT QUANTITIES 

See input data description sheets on Pages 141-143. 

2.2 CARD FORMATS 

See card format sheets on Pages 144 and 145. 

2.3 DECK SETUP 

The order of the input i.- 

1. Control Cards 

2. Substrata Historical and Statistical Data Cards 

3. Crop Window data cards and Crop Window Error data. 

4. Sample segment ID cards. 

2.4 RULES FOR ENTERING DATA ON CARDS 

2.4.1 General 

• Integers must be right justified. 

• F-format or D-format numbers must have the decimal point present. 

• There is a Crop Window card necessary for spring and winter. If either 
spring or winter are not required, only one card need be input. 

2.4.2 Rules for Specific Fields 
See Pages 4-6. 
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Identification ease number for sample segment data 
(15) 

Segment number (14) 

four character country name (i.e., USA, USSR) 
Region number (13) 

Zone number (13) 

Strata number (14) 

Substrata number (14) 

Substrata name (2A4) 

Substrata total area (USA and Canada acres, USSR 
and others-hectares) (floating point, F1O.0) 

% wheat in substrata (floating point, F7.3) 


Spring or winter wheat indicator: S - Spring, 
W = Winter 


Deviation to true proportion wheat (floating point, i 

F6.3) 

Coefficient of variation for year-to-year change in ; 

proportion wheat (floating point, F5.3) 

Coefficient of variation for within county variation | 
of proportion wheat (floating point, F5.3) J 

Coefficient of variation for within county variation 
of proportion mixed pixels (floating point, F5.3) 

Deviation of true proportion mixed pixels (floating w i 

point, F5.3) 

Card typ^ (Ii) nd \ | 

=0 Substrata Historical Data £ r i 

=1 Substrata Statistical Data ® (j 1 

=2 Substrata Crop Calendar Data - — 4 

=3 Substrata Crop Calendar Error Data *- « j 

=4 Sample Segment Location Data - 1 


Latitude with N or S indicating + or - respectively^ 
(Al, 12, 13) ■ 




INPUT DATA UtSCRIPTION 




Longitude with E or W indicating + or 1 respectively 
(Al, 12, 13) 

Date month, day, year of each of 4 phases for start 
phase and stop phase 4 ( 1 X » 612) for winter or spring 
wheat 


Floating point odd whole number used as seed to 
random number generator (D12.0) 

List option to list all input data cards or only 
those in error (12) 

=0 Only those in error 
=1 List all input data cards 

Unit number of Substrata Historical Data (12) 

Unit number for Substrata Statistical Data (12) 

Unit number for Segment ID Data (12) 

Unit number for Segment Crop Window Data (12) 

Unit number for Crop Calendar Error File (12) - Set 
to 38 (8) 

Training Segment Flag (12) 

~0 If all segments are training segments £ 

=1 If the training segment list is specified, £ t. 
via segment location data cards. 01 * 

Number of agricultural segments in a substrata £ 

Number of allocated segments in a substrata ^ 

Multi-yr- Std. deviation of historical wheat area * 

Group no assignment for a substrata c 

CT 

Delta error for winter in predicting the bio window 
dates, expressed at fraction of the window interval. 

Error in the mean planting date of the substrata 
relative to the true mean value. 



•i . y 


INPUT DATA DESCRIPTION (Cont.) 




SYMBOL 


DIMENSION 


VALUE 


RANGE 


UNITS 


DESCRIPTION 


SEGSD 


IRIND 
Ti l ST 


SW1 

SW2 

ELWE1 

5 LNT1 

5GSD1 


6 r 6 4 


i 

6 


T 

1 

4 

1 

1 


0-99 


0-1 

0-9999 


S or W 
S or W 
+i. o 
+99 
0-99 


Days 


Days 

Days 


Within substrata variation for winter in crop 
calendar due to change in latitude, altitude, 
planting date, etc. 


0- training segment, 1- ordinary segment 


List of segment numbers of training segments 
associated with the ordinary segment. These 
segments are to be listed in order of decreasing" 
priority. Highest priority is first. 


^Spring or winter wheat indicator from 
jCrop calendar data 

Delta error for spring - same as DELTWE 
Same as IPLNTE only for spring 
Same as for ISEGSD only for spring 


•tJ £ 

cj 00 

a w 
>$»■ 

4* O' 

u> o 
ru 
-o 

i 

ta 

c 




- -f. - • - ...»*■ ... ,[ ... t-lV 


'r llrAJ 2 







CONTROL CARD 


rs-iv" w 1 s 
















SUBSTRATA HISTORICAL DATA 


Strata 


b al I 

O 


14 A8 F1O.0 F7.3 
SUBSTRATA STATISTICAL DATA 


Strata 


rw | rw j rn j W A 


F6.3 F5.3 F5.3 F5.3 F5.3 F5.3 


Strata 


SUBSTRATA CROP CALENDAR DATA 


S jCrop Phase 1\ /prop Phase 


Start Stop I Y I Start Stop 


S 

strata 


rop Phase 3 


t Stop 


rop Phase 


Start Stop 


IBEJEIBQE 


1 Card For Spring and 1 For Winter 
CALENDAR ERROR DATA 5] „ 58 


Latitud . 


ed * Mi 


Longitude 


Deg * jMi 


AT 12 A1I2 AT 1 3 AT 12 


PrioriPrior 


6 


4 
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2.5 FILES 

The only interface input file is INDMAT-index matrix location file. This 
file is used to get the index number associated with a segment latitude and 
longitude. See Section 2.4 of the Users Manual for format and contents. 



if. 

t 
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3.0 PROCESSING 

3.1 OVERVIEW 

This program is arranged as a driver, an input processor, the main program 
(LUMP) and various utilities to accomplish their function: when called. The 
driver reads one data card and then calls the input processor which in turn per- 
forms checks on the various input fields as shown in Section 5.2. If no errors, 
the card image is written to an intermediate file and on option to the output 
file. If errors exist, the card is written to the output file along with the 
specified messages. The program will continue reading all the data cards and 
checking for errors but will terminate writing the intermediate card image fi’e 
if the errors are fatal. If the errors are non-fatal , then the cards in error 
will not be written to the intermediate file and processing will continue when 
all cards have been checked. Additional runs may be made using this same data on 
the saved files, thus eliminating duplicate processing. After the intermediate 
files have been written, control is given to the main processor LUMP. Here one 

record of Substrata data (including a Crop Calendar Record) and one record 
of Segment ID data is read. The substratum number is checked to see if the segment 

belongs to this particular substratum. If not, the Substrata data is processed 
and written to the Substrata Historical file. Then another record of substratum 
data is read and processing continues. If the segment does belong to the substratum, 
the index number corresponding to the segment latitude and longitude is computed. 

The segment is then written to the Segment ID file, and another segment is read in 
and processed in the same manner until all segments for a particular substratum 
have been processed. A record is then written to the Crop Window File and the 
Substrata Historical File and new Substrata and Segment ID cards are read in and 
processed in the same manner until all cards have been read. 

3.2 PROGRAM FLOW 

Routine LUMPDR is the main driver which calls the input processor or the 
subroutine LUMP. Subroutine LUMP is the main body and performs all the needed 
calculations to generate the desired output files. An overview block diagram is 
presented on Page 1 5 i . 
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3.3 PROCEDURES AND EQUATIONS 



1. If a Substrate, is typed a Group III a test Is made . to make sure there 
is no sample segment in this substrata. If there is, a message is 
printed and this situation is considered a fatal error. 


2. ?f a substrata is typed a Group I, a test is made to make sure there 
is at least 1 sample segment in the substrata, if not a message is 
printed and the segment is retyped as a Group III. 


3, If a substrata is typed a Group II, a test is made to see that there 
is at least one sample segment in one of the Group II substrata's 
within a governing strata. 


3.3.2 Compute True Proportion of Wheat Usint 


Distribution. 


1. Compute XBAR = HSTPW(1 + DEVTPW)/100.0 

2. Compute SIGMA = HSTPW * CV1/1 00.00 

3. Compute XI from subroutine BETAD given RSEED utilizing the incomplete 
beta function as computed via TRW canned routines. See subroutine BETAD 
writeup for details. 

4. Compute TPWSS * XI * 100 

5. If the subroutine BETAD can not find an answer for XI then TPWSS is 
SET = HSTPW. 

HSTPW - Pseudo proportion of wheat 

DFVTPW - Input deviation to true proportion of wheat 

CV1 - Input coefficient of variation 

TPWSS - True proportion of wheat 

RSEED - Random number seed 

XBAR - Average proportion of wheat value 

SIGMA - Standard deviation of proportion of wheat 

XI - Random value for true proportion of wheat 







t 


f 

» 
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3.3.3 Ensure Compatible Priority Training Segment Lists for Ordinary Segments.. 

A check is made to make certain that for each ordinary segment a 
valid list of priority training segments is given. This test is made only 
if the ITSFG flag is set for both ordinary and training input. 

3.3.4 Compute predicted bio window start and stop dates and associated errors 
-t* for winter and spring: 


t‘ = t n + 6 n 

0-j 0-j u 


t' 


f l = t f, + s 1^f, -V ) + i o 


1 U 1 




‘■f 2 ■ tf 2 + 5 l (t f, * *.> + ¥% - V + s o 

*V V* 1 ^! - t ^ + *2< t f z ’ V + S o 

1 V V 5 1 ( V M + S 2 ( V V + ,j( V V + s ° 

= % + 5 1 (t f, - \> * 5 2 ( S - + * 3 % ' V 


- \> + S o 

; 'f 4 = t f / , * W, " V + S 2^f 2 " * 5 3* t f 3 ‘ *.,> 

* s 4< VV * s o 


Error Terms are: 

1 - 6. 


3-t' - t f 

f 2 f 2 


5-t' f - t- 
T 4 '4 


2 ~ t'i -t^ 

r l r l 


4-t'f - t^ 
t 3 t 3 


12 
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Reference crop calendar input start-stop dates 


a - Input planting date error 
6^-6^ - Input error in predicting acquisition windows 


3.3.5 Gomi ute Heather Index No . 

The program computes the grid I, J from the latitude and longitude of each 
segment and then pulls out the index number, from the input pattern matrix file 
INDMAT. 

The equations and procedures are defined in the weather index generation 
document written by G. Rasmussen. The index pattern matrix will be generated by 
the utility 'GRID 1 from the NASA weather tape. 

3.3.6 Compute PSEUDO proportion of, wheat . 


me - AREA 

( NAL )*1 0289 . 712 


HSTPW 


ITISTPW *A REA 
NAGR* . RK*T 02 89. 71 2 


where: 

AREA - Substrata land area in hectares 
NAL - No of allocated segments in a substrata 
HISTPW - Historical proportion of wheat in a substrata 
NAGR - No of agricultural segments in a substrata 
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START 
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INITIALIZE COUNTERS 
READ CONTROL CARD AND 
TRAINING SEGMENT LIST 


CALL FILGEN TO CREATE 
DISK FILES FROM 


INPUT CARDS 


ORIGINAL PAGE IS 
OF POOR QUALITY! 



^ DO WE ^ 
HAVE MORE 
SUBSTRATA 


READ 1 RECORD ''SU3STRAI 

rjr,T/\ p T 1 cm i” , rj tir'./ip 

CA : EfiDAR D2 ;: A f : LE" 


COMPUTE PSEUDO 
PROPORATICN OF WHEAT 


GENERATE AND WRITE 1 
RECORD TO SUBSTRATA 
HISTORICAL FILE 


JL. J >» I JR 


RET.". FWT 


COMPUTE PREDICTED BIO 

WINDOW START/STOP 
r -vc 


DO 

WE HAVE A 


SEGMENT 


READ 1 RECORD 
"SAMPLE SEGMENT 
DATA" 


GENERATE AND WRITE I 
RECORD TO CROP ■ 
WINDOW FILE 


WE^V 

HAVE ANOTHER 
SEGMENT ^ 


COMPUTE WEATHER 
INDEX NUMBER 


GENERATE AMD WRITE 1 
RECORD TO SAMPLE 
SEGMENT ID FILE 


3.4 Block Diagram and Logic Flow ^ 
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4.0 OUTPUT 

4.1 GENERAL 

There are seven media for output. These are: 

1. Print file 

2. Sample Segment Intermediate File 

3. Substrata Data Intermediate File 

4. Crop Calendar Intermediate File 

5. Segment ID File 

6. Crop Window File 

7. Substrata Historical File 

The second and third are intermediate files and are images of the card 
input. The last three are the desired resultant of LUMP processing and are to 
be used later by other modules. 

4.2 PRINTED OUTPUT 

4.2.1 S tandard Printout 

The standard printout generated by the LUMP program consists of the fol- 
lowing: 

1. Listing of the quantities from the "control card" 

2. Status recording 

o A count of each type of card read 
o Number of records written to each file 
o A count of input errors 

o A status flag indicating if .job ran successfully 
o Last random number seed u:\ed 

4.2.2 Optional Printout 

1. If HIST >_ 1 on the "control card", then the card images from all six 
input files (INPUT, Substrata Historical Data, Substrata Statistical 
Data, Sample Segment ID Data, Crop Window Data, and Crop Window Error 
Data are printed out. 

2. If ILIST = 2, then the contents of the output files (segment ID file. 
Crop Window File, and Substrata Historical File) are printed out as 
each record is written (the records for the different files are inter- 
mixed on the printed output) although three separate files are actually 
generated. 


15 



28 2 34- 602 7 -RU- 00 
Page 154 

5.0 ERROR PROCESSING 

5.1 GENERAL 

The program will attempt to find as many sources of error during input 
card processing as possible. The program will continue checking for further 
input errors upon detecting any input error. Processing will continue if 
possible if recovery from errors may be overcome. 

5.2 INPUT DATA ERRORS 

• Compatibility checks (Do the country, region zone, strata, and sub- 
strata agree between the substrata statistical data and between the 
sample segment ID data and the crop window data?) 

• Checks for non-overlapping windows 

• Sequence checking of the card data 

• Input/output data limit checks 

• Training priority segment NNNN is either not a training segment or 
nonexistant-f atal . 

» A Group 1 substrata does not have at least 1 sample segment. Nonfatal 


• A strata with at least 1 group z substrata does not have a sample segment 
in any group 2 substrata . Nonfatal 

• A group 3 substrata has 1 or more sample segments . Fatal 

• Region xxx zone xxx strata xxxx substrata xxxx beta distribution 
function could not converge on a solution 

• Region xxx zone xxx strata xxxx substrata xxxx beta function reset 

— value since not between 0 and 1. Either or have 

bad values 

• Region xxx zone xxx strata xxxx substrata xxxx segment xxxx. No crop 
calendar data available for segment intermediate file record, record 
skipped 

• Region xxx zone xxx strata xxxx substrata xxxx segment xxxx. No weather 
grid index no. could be found. The segment record is skipped. 
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Input Data Limit Checks 
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Parameters 

Substrata Area 
Historical PW 
Deviation of True 
Yr-to-Yr CV of True PW 
Within County CV of True PW 
Within County CV of irue PM 
Multi Year CV of Standard Dev 
Ratio of PM to PW 
Spring/Winter Wheat Indicator 
Segment Latitude 
Crop Window Dates 
Year 
Month 
Day 

Grid Index 
DELTWE . DPI WEI 


Range 

> 0 

0 to 10 2 
-9.999 to 9.999 
0 to 9.999 
0 to 9.999 

0 to 9.999 

■> 

0 to 9.999 
0 to 9.999 
S or W 
-65° to +65° 

64 - 99 
1 - 12 
1 - 31 
1 - 16000 
- 1 . 0 , + 1 . 0 


5.3 ERROR MESSAGES 
Card Field Errors 
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For any error on a card the card image is printed pr or to the message: 

1. Inconsistent substrata historical and statistical data 

2. Inconsistent Crop Window Error Data and Crop Window Data 

3. Substrata area must be positive 

4. Historical proportion of wheat must be non-negative 

5. DEVTPW must be less than 9.999 in magnitude 

6. COEFF, if variations must be between 0.0 and 9.999 

7. DEVTPM must be between 0.0 and 9.999 

8. Latitude must be less than or equal to 65.0 deg. 

9. Longitude must be between -180 and 180 deg. 

TO. Spring/winter wheat indicator must be W or S 

11 . CV4 must be between 0.0 and 9.999 

12. Year must be greater than 64 

13. Month must be between 1 and 12 

14. Day must be between 1 and 31 

15. Overlapping crop window 

16. Group no must be equal to 1 , 2 or 3 

17. Delta errors in bio window prediction dates are not between -l and +1 

18. Segment specified as ordinary must have a training segment priority 

list. 

19. Neither NAGR or NAL can be zero. 



19 



28234-6027 -RU-0Q 
Page 157 


PART II 


COMMON BLOCK DEFINITIONS 



r • '-••• 


! : 

l : 


t 1 


v 1 f 

28234-6027- RU-00 . 

Page 158 



COMMON STORAGE ALLOCATION 


Name 

CONST 

Size 18 words 

Page 1 of 2 


Functio n Program Constants 


Name 

Dimen- 

sion 

For- 

mat 

Description 

Sym- 

bol 

Units 

PI 

1 

F9.7 

n = 3. 1415926 

V 


DEGTOR 

1 

F 11.9 

Degrees to radians conversion factor 
= Tf /ISO 


radians 
deg . 

ARE AC F 

1 

F11.6 

Area conversion factor 2 

= 4. 046873E-3 . KM /acre _ 


KM 2 

acre 




For U.5.A. and Canada 

= 0.01 KJvW /hectares otherwise 


KM 2 

hectare 

SLATMX 

1 

F4. 1 

Minimum allowable latitude (65.0) 


deg. 

ENDATA 

1 

A4 

End -of -data indicator (=4HZZZZ) 



ZERO 

1 

12 

Binary zero (0) 



INP 

1 

12 

Input file number (5) 



IOUT 

1 

12 

■ 

Output file number (6) 



INTSUB 

1 

12 

Substrata Intermediate File (30) 



INTSEG 

1 

12 

Segment Intermediate File (31) 



ISIDF 

1 

12 

Segment ID File number (1) 



ICWF 

1 

12 

Crop window file number (2) 



IBB 

Hjl 

12 

Substrata historical file number (3) 


■1 

LRSIDF 

l 

B 

Record length for the Segment ID File (13) 

"" 7 . 


LRCWF 

l 

B 

Record length for die Crop Window File (21) 


m 

LRSI-IF 

l 

B 

Record length for the Substrata historical 
file ( 160) ... ■ ... 


IH 

IQ 

IM 

B 

Number of crop windows' (4) 


WM 


.... | .« — ■— - I - > - ■ 

MXSEG 1 12 Maximum number of segments in any substrata (150) 










] 



Name CONST 
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f 


f 

t 
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Site 


Pag e 2 of 2 


Function Program Constraints 


Name 

DL ten- 
sion 

For- 

mat 

Description 

Sym- 

bol 

Units 

ICALIN 

I 

I 

Unit number of intermediate crop calender 
file 



ICWE 

1 

I 

Unit number of crop calender error 
data 



ISWI 

1 

I 

Spring or winter wheat input fla^ from crop 
calender cards 



ISW2 

1 

I 

Spring or winter wheat input flag from crop 
calender cards 



IGRDTP 

1 

I 

Unit number of index matrix file 







































































■ 
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Name FLAGS 


Size 182 


Function Flags and Indexes 


Dimen- 


For- 

mat 



Description 


Units 


12 Number of input errors 


Print flag used in ERR.MES 
^ 0 if the current card image has already 


been printed 
= 0 otherwise 


Error flag: 

i- 0 if the current substrata historical data 


card or the current sample segment ID 
data card contains errors; 


= 0 otherwise 


Error flag: 

i- 0 if the current substrata statistical data 


card, or the current sample segment 
crop window data card contains errors 


= 0 otherwise 


Number of substrata historical data 
:ards 


umber of substrata statistical data cards 


umber of sample segment data cards 


Number of records written on the substrata 
ntermediate file 


umber of records written on the segment 
itermediate file 


umber of records written on the segment 
) File 


Number of records written on the Crop 
Window File 


Number of records written on the Substrata 
His torical File 































5E 


For- 

mat 



Description 



Substrata Statistical Data File read flag* 
£ 0 if the statistical data file was read 


after reading the historical data file; 
= 0 otherwise 


Substrata Statistical Data read flag; 

= 0 if for each substrata Historical Data 


card, a statistical data card is to be 
read; 


= 1 if die current statistical data card is to 
be used for all substrata within the 


current strata; 

= 2 if the current statistical data card is to 



be us e 
zone; 


strata wi 


le curren 


e current statistical data card is 
to be used for sll zones within the 


current region; 

= 4 if the current statistical data card is to 


regions 



12 Previous region number 


12 Previous zone number 


Previous stratum number 


Previous substratum number 


Previous segment number 


Number of segments within the current 
substratum 


Maximum number of segments within any 
substrata 


Number of segments in the training seg- 
ment ID list 



































I 


I 

fr 
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COMMON STORAGE ALLOCATION 


Size 


Page 3 of 4 


Name 


Dimen- 

sion 


For- 

mat 


Description 


Sym- 

bol 



READSF 


1 


12 


Segment intermediate file read flag; 

^ 0 to skip reading of the segment inter - 


FATAL 


IDAYS 


1 


8 


12 


mediate file until a hew s Tib stratum is 
read on the Substrata Intermediate File 
i=-0 to readilie segment intermediate, file 

^ 0 if a fatal error is detected in the input 
data . 


12 


Array of crop window start/stop dates in 


Zulu date format! 

IDAYS(2I- 1) = start date 
IDAYS (21) ~ stop date 

for the I-th crop window for winter 


IDS EG 


150 


List of segment ID numbers for a given 
substratum 



i 

} 


\ 

4 

i 


■i 


i 


i 


> 

j 


I 






























; 



1 
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Nam e INPUT 

Function Input Quantities 


COMMON STORAGE ALLOCATION 
Size 1071 


Pap e 1 ofj 


^ or “ Description 

mat _ _ _ 


1 F10.0 Random number seed 


F 10.0 I Substratum Total Area 


otherwise) 


Historical proportion of wheat (% wheat) 
converted to correct units for use in 


subroutine LUMP 


Deviation of true proportion of wheat 



Coefficient of variation for within county- 
variation of proportion of wheat _ 


Coefficient of variation for within county 
variation of proportion of mixed pixels 


Deviation of true proportion of mixed p 


Segment latitude 


Segment longitude 


Segment latitude: 


SLAT(2) = degrees portion 


SLAT (3) = minutes portion 


Segment longitude 


SLONG(2) = degrees portion 


F4. 0 SLONG(3) = minutes 


6 PW 

























Function 


COMMON STORAGE ALLOCATION 
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Name INPUT 


Pag e 2 o f ^ 



Description 



Substrata name 


Name of country on substrata Historical 
data card or on Sample Segment ID data 


card 


Name of country on Substrata Statistical 


Data card or on Sample Segment Crop 
Window Data card 


1 ase number 


List option 

= 0 for no printout except errors and 


statistics 

= 1 to printout input data 


= 2 to printout input data and the output 
files 


Training segment flag 

0 if the training segment list is specified 1 


= 0 if no training segment list is specified 
and if all segments are training s eg men 


Unit number for Substrata Historical Data 


Unit number for Substrata Sta iitical Data 



Segment ID (on Segment ID Data Card) 



13 Region number 


Zone number 


Strata Number 


































M 


Function 


Description 


Units 


_ . Substrata number 

14 Note: IREG, IZONE, ISTRAT, and ISUB 


refer to the Substrata Historical Data or the 
Segment ID Data; IREG2, IZONE2, ISTRA2, 


and ISUB2 refer to the Substrata statistical 
data or the segment crop window data. 


Al Spring /winter wheat indicator: 

= S for 5-D.riner wheat _ 


= W for winter wheat 


Card type 

= 0 for substrata hist, data 


= 1 for subs trata statistical data 
= 2 for segment ID data 


3 for segment crop window data 


T1 Card type - 
1 similar to ITYPE 


IT Y PE is used for the substrata historical d 
and the segment ID data and ITYPE 2 is used 


or the substrata statistical data an 
crop window data 


K3a? 


IREG2 


Segment index {grid number) 


14 Segment ID (on crop window data card) 


.egion number 


one number 


trata number 


BUB above 



















Nam e INPUT 

Function 


COMMON STORAGE ALLOCATION 
Size 
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Pag e 4 of 


Name 


LAT 


For- 

mat 

Description 

Sym- 

bol 

Units 



Segment latitude 


LAT(l) is N or S 

LAT(2) is the degrees portion 


LAT (3) is the minutes portion 


Segment longitude 


LONG(l) is E or W 

LONG(2) is the degrees portion 


LONG(3) is the minutes portion 


Year portion of the start/stop dates 

64) .. ... 


month portion of the start/stop dates 
(1 - 12 ) 


day portion of the start/stop dates (1-31) 


IYR(2n-l) is the start date of the nth crop 
window 


YR(2n) is the stop date of the nth crop windc 




















COMMON STORAGE ALLOCATION 
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Name _ . INPUT 


Pag e 5 o f 6 


Function 



Description 


Sym- 

bol 


Substrata group number 


R Multi year standard deviation 


Bio window error set for winter 


Mean planting date error for winter 


Crop calender standard deviation for winte 


Training segment indicator 


Number of agricultural segments in a 
subs tr ata 


Number of allocated segments in a sub- 
strata _ 


List of priority training segments 


Number of crop calender cards read 


Number of crop calender error cards 
read 


Number of records written on crop 
calender file 


Crop calender start/stop zulu dates for 
spring _ 


Bio window error set for spring 


Mean planting date error for spring 


Crop calender standard deviation for sprin 


p ea 




month set 





























> j i r,: tt -- 1071 

j 

i 






i ! 


t 
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/ 'i 

a 


COMMON STORAGE ALLOCATION 












I 


COMMON STORAGE ALLOCATION 

Nam e LDATA Siz e 16 

Function Spring /Winter Wheat Crop Window Dates 
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Name 

Dimen- 

sion 

For- 

mat 

WWDATA 

8 

15 

SWDATA 

8 

15 


Description 


19501 


15 Spring wheat crop window s tart/stop dates 
(Zulu Dates ) 

WWDATA(Zn-l) is the start date 

WWDATA(Zn) is the stop date for the nth 
crop window 


ISimilarly for SWDATA 


1 

I 



















I 

1 


i 
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Name TRATAR Size. 

Function Training Table Data 


Pag e 1 o f 1 


Name 

Dimen- 

sion 

! For- 
! mat 

Description 

ITRAIN 

2000 

i 

List of all training segments specified via 
sample segment location data 

ITRPRI 

2000 

i 

List of unique segment IDs identified in 
priority lists for ordinary segments 
















COMMON STORAGE ALLOCATION 

DIRAC 


Function Direct Access Storage Index Matrix File 
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Name 

Dimen- 

sion 

For- 

mat 

Description 

Sym- 

bol 

Units 


ICDIN 


Array for index record pointers for CDC 
only 


Contains 1 physical record from the index 
matrix file 


’AM a 
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CROP CALENDAR 
Intermediate Data File - CRPINT 


This file contains the substrata crop calendar anr its corresponding 
error data stored in one record. This file is used by subroutine LUMP. 


Access Method: Sequential 


Status: Temporary 

Sort: Country through substrata 


Media: Drum 
Record Format: 


Detail Record 
XC TRY - 
IREG 


IZONE 


Country ID - A4 
Region no. 

Zone no. 


ISTRAT - 
ISUB 
IDAYS 
DELTWE - 


Strata no. 

Substrata 

Four stop/start Zulu date pairs for winter 
Four values of bio-window errors for winter 


IPLNTE 
ISEGSD 
IDAYS 1 
DELWE1 


Winter mean planting date error 
Winter crop calendar standard deviation 
Four stop/start Zulu date pairs for spring 
Four values of bio-window errors for spring 


IPLNTl - Spring mean planting date error 
ISGSD 1 - Spring crop calendar standard deviation 

Total - 33 words 


Trailer Record 

First word has 'ZZZZ' followed by 32 words of aero 
Recommended Blocking Factor: 10 
File Siae: 105, 633 words max. 
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SUBSTRATA DATA 
Intermediate File - SUBINT 


This file contains the combined data from the substrata historical 
and statistical data card sets. It is used by subroutine LUMP. 

Access Method: Sequential 
Status: Temporary 
Sort: Country through substrata 
Media: Drum 
Record Format: 


Detail Record 



ICTRY 

- 

Country ID - A 4 

IREG 

- 

Region no. 

IZONE 

- 

Zone number 

ISTRAT 

- 

Strata no. 

ISUB 

- 

Substrata 

NAMSUB 

- 

Two word substrata name - 2A4 

AREA 

- 

Substrata area 

HSTPW 

- 

Historical proportion of wheat converted 
to proper units 

DEVTPW 

- 

Deviation of true proportion of wheat 

cv 

- 

Three coefficients of variation 

DEV TPM 

- 

Deviation of true proportion of mixed pixels 

NAGR 

- 

No. of agricultural segments 

NAL 

- 

No. of allocated segments 

CV4 

- 

Multi-year standard deviation 

I GRP 

- 

Group no. 

Total - 

18 words 


Trailer Record: 

First word has 'ZZZZ' followed by 17 words of 0 
Recommended Blocking Factor: 10 
File Size: 57, 618 words max. 
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SEGMENT DATA 
Intermediate File - SEGINT 


This file contains the data from the sample segment cards, 
ased by subroutine LUMP. 

Access Method: Sequential 
Status: Temporary 
Sort: Country through segment 
Media: Drum 
Record Format: 


Detail Record: 


ICTRY 

Country ID - A4 

ISEG 

Segment no. 

IREG 

Region no. 

IZONE 

Zone no. 

ISTRAT 

Strata no. 

ISUB 

Substrata no. 

QLAT 

Latitude 

QLONG 

Longitude 

ISW 

Spring /winter flag 

ITRIND 

Training segment flag 

ITLIST 

Six training segment ID 

Total - 16 words 


Trailer Record: 

First word has ’ZZZZ' followed by 15 words of 


It is 


Recommended Blocking Factor: 10 
File Size: 64,000 words max. 





T 
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PART HI 



LIST OF SUBROUTINES 
AND 

SUBROUTINE CALL STRUCTURE 
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LIST OF ROUTINES IN LUMP 


LUMPDR 

FILGEN 


LUMP 


ERRMES 


LFPA 


RDMIA 


CALGEN 


CALERR 


BETAS 


Main control routine for the LUMP program. 

Reads data from the four input files and generates the 
Substrata Intermediate File and the Segment Intermediate 
File. 

Reads data from the Substrata Intermediate File and 
from the Segment Intermediate File and generates the 
Segment ID file, the Crop Window file, and the Substrata 
Historical file. 

Error Message routine. Prints most of the error 
messages. 

Calculates the Zulu Date (Number of days from 1 January 
1950) from a given calendar date (year, month, day). 

Random number generator. 

Reads, checks and merges crop calender and crop 
calender error data. Writes intermediate file. 

Computes predicted bio window start and stop dates with 
their associated errors. 

Compute a random number based on the beta distribution 
or normal distribution. 


IBETAI 
A L GAMA 
GRID 

GRIDCAL 


RDGRID 


Computes incomplete beta function (TRW utility) 

Computes gamma function (TRW utility) 

Controls the calculation of the weather grid index number, 
given latitude and longitude 

Computes the best index value for a given grid pair of 
coord, in the global stereographic index matrix. 


Opens or closes IGRDTP file or reads a record from it 
(the Index Matrix File). 
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SUBROUTINE CALL STRUCTURE 


LUMP DR 

RDGRID 

FILGEN 

ERRMES 

CALGEN 

ERRMES 

LFPA 

LUMP 

CALERR 
BE TAD 

RDMIA 
IB ETA I 

ALGAMA 

GRID 

GRDCAL 

RDGRID 








T 
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PART IV 


SU BROU TINE 


r 


\ 




1 


i 

l 






iiitMJ 
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SUPPLIED UTILITY ROUTINES 


Routine Day 

Call Day (IYMD, IDA Y) 

Given IYMD (3) where IYMD (1) IS Day No. 

IYMD {2) IS Month No. 

IYMD (3) IS Year No. 

Compute year clay no. in IDAY 

R outinc P1M OP 

Call PIMOD (A) 

Convert ±A in radians to an angle 0- Ztt 

Routine SOI., (Entry ALPHA) 

Call ALPHA (IF LAG) 

For emphemeris usage as called by hector 

computes ALPHAM and AL PH AT and 1FLAG - 1 

Routine PAGER (E ntry Eject) 

Call PAGER (N LINES) 

Updates line count in NLINE with N LINES 

NPAGE = 0 causes page to be restored prior to print. 

NPAGE - page no. 

HEADER- 80 char. Z0A5 
1CASE- case no. 

KO - b print unit 

INMAX is max no. of lines allowed 

Initially NLINE should be set > LIN MAX and NPAGE - 0 





- ■ T— 




i 

) 
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SUPPLIED UTILITY ROUTINES 
(CONTINUED) 


Call EJECT (N LINES) 

Causes page to be restored automatically and then prints headers. 
Routine CLP AY 
Call CLP AY 

Given IDAY-DAY no. of the year compute in LMO-the month 
and in LPA the day no. 

Need: I YEAR = 0 - Leap Year, 4 0 not Leap Year 

Routine KEPLER 

Call KEPLER (XM, XECC, XE, ERROR) 

Given XM - Mean anomaly, XECC - eccentricity 
Compute: E-eccentric anomaly, error = 0 means OK 

R o ut i n o L F P A 

Call LFPA L F LPA, LMO, LYR, ALFGiM (can be dummy), DAYS 

Given: FLDA - day of month no. , LMO - month no. , 

LYR - year no. compute ALFGM - right ascension and 

DAY'S - Zulu day no. 

R out in e DEGM OP 

Call DEGMOND (RAP, IDEG) 

Given: angle rad in radians .-tore' the angle m deg. , min., sec., 
jn ID EC ill - ; U. 

R outi ne F2ULU 

Call FZULU (lOATE, IOUT) 

Given Zulu date in IDATE, compute year, month and day in 
IOUT(i) - lO U T ( 3 ) . 

Routine R D M 1 A 

Call RDMLA(FL, U) 

Given double precision random no. seed in FL, corn out e random 
no. U (0-1) based un uniform dislribut ion . 


I 


I 

I 



T 

i 


i 



I 
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Subroutine LUMPDR 


Purpose : Main control routine for the LUMP program 

Linkage: Entered from the Operating System 

Inputs ; 

The input quantities for LUMPDP are read from the INPUT file 
and consist of all the information on the "Control” card plus the 
Training segment ID list. 

Outputs ; 

The output quantities from LUMPDP are the quantities read 
from the INPUT file and are stored in the labeled COMMON 
block /INPUT / for use by other routines. In addition the quanti 
ty NTLIST, the number of entries in the Training Segment ID 
list is computed and stored in the COMMON block /FLAGS/. 

Subroutines Called: 

FILGEN - reads data from the four input files and generates the 

Substrata Intermediate File and the Segment Intermediate File. 

LUMP - reads data from the two intermediate files and generates 

the Segment ID File, the Crop Window File, and the Substrata 
Historical File. 

RDGRID - read and check header record on IND mat file 


Error Messages: 

None 

Definitions of Local Variables ; 

I Index in DO LOOP to read Training Segment ID list. 

J Index in DO LOOPs to read Training Segment ID list. 

LI Lower limit of J in the DO LOOP for a given card image. 

L2 Upper limit of J in the DO LOOP for a given card image. 
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Subroutine FILGEN 


Purpos e ; Reads data from three input fil«?s and generates the 

Substrata Intermediate Files and the Segment Intermediate 
File. 

Linkage : CALL FILGEN 

There are no arguments in the calling sequence. All 
input /our put quantities are transmitted through COMMON 
storage or disk/tape/drum files. 

Input; 

Most of the input quantities are specified on three input files 

1. Substrata Historical Data 

2. Substrata Statistical Data 

3. Sample Segment ID Data 

In addition, the following quantities are required and are specified 

through COMMON storage: 

ILIST List option: 

= 1 to list input data; 

= 0 otherwise 

ISHD File number for Substrata Historical Data (=0 if 

the Substrata Intermediate File from a previous 
run is to be used) 

ISSD File number for Substrata Statistical Data (=0 if 

the Substrata Intermediate File from a previous 
run is to be used) 

IOUT File number for the print file on which card images, 

error messages, and run statistics may be printed 

ISID File number for Sample Segment ID Data {= 0 if 

the Segment Intermediate File from a previous run 
is to be used) 



END AT A 



i 

! ;• ; 

I t » 
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End of data indicator {= 4HZZZZ) 


DEGTOR Degrees to radians conversion factor (= tt /ISO) 

INTSUB File number for Substrata Intermediate File 

INTSEG File number for Segment Intermediate File 

Outpuc: 


The output data generated by FILGEN is written on the Substrata 
Intermediate File and the Segment Intermediate File. In addition, 
the following statistical quantities are computed and printed out: 

NSHC Number of Substrata Historical Data cards read 

NSSC Number of Substrata Statistical Data Cards read 

NSEGC Number of Sample Segment ID Data cards read 

(also the number of Sample Segment Crop Window 
Data cards) 

NSUBR Number of records written on the Substrata Inter- 

mediate File 


NSEGR Number of records written on the Segment Inter- 

mediate File 

IERR Number of errors detected on the input data 

Subrou tine s C ailed ; 

ERRMES Error message subroutine 

CALGEN Reads crop calender data and writes intermediate file 


Error Messages: 

The following error codes may be used. See the writeup of 
subroutine ERRMES for the complete error message: 

3,4, 5, 6, 7, 8, 9, 10. 11, 16, 18, 19 
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Definition 

AREA 

DAYS 

FLDA 

HSTPW 

I 

ISKCW 


ISKSSC 


ICT 

ILOC 

ILOCI 

ISEGPR 


s of Local Variables: 

Z 

Area of substratum in Km 
Zulu date (in floating point) 

Day portion of calendar date 

Historical proportion of wheat (true percent) 

Index in miscellaneous DO LOOPs, 

Flag controlling reading of Sample Segment Crop Window 
Data: 

= 0 to read one card image from the Crop Window 

Data after reading one card image from the Segment 
ID Data 

= 1 to skip reading the Crop Window Data temporarily until 
the Segment ID Data catches up with the Crop Window 
Data (i. e. , until the segment IDs match) 

Flag controlling reading of the Substrata Statistical 
Data: 

= 1 to skip reading of the Substrata Statistical Data 
until the Substrata Historical Data catches up 
with the Statistical Data (i. e. , until the region, 
zone, strata, and substrata agree unless the region, 
zone, strata, or substrata from the statistical 
data are zero) 

Count of number of training segments associated with 
and ordinary segment specified in a priority list. 

Current location in ITRAIN array 
Current location in ITRPRI array 

Current priority training segment ID used to make sure 
segment input data has specified valid input priority 
training segment lists. 


1 


r 



i 

i 









( 


l 

i 


I 
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Subroutine LUMP 


Purpose : Reads data from the Substrata Intermediate File Crop 

Calender Intermediate File and the Segment Intermediate 
File and generates the Segment ID file, the Crop Window 
File, and the Substrata Historical File. 

Linkage: CALL LUMP 

There are no arguments in the calling sequence. All 
input/output quantities are transmitted through COMMON 
storage or disk/tape/drum files. 

Input: 

Most of the input quantities are specified on the Substrata Inter- 
mediate File and the Segment Intermediate File. In addition, 
the following quantities are required and are specified through 
COMMON storage: 


INTSUB 

INTSEG 

ISHF 

ISIDF 


ICWF 


LRSHF 


LRSIDF 

LRCWF 


File number for the Substrata Intermediate File 
File number for the Segment Intermediate File 
File number for the Substrata Historical File 
File number for the Segment ID File 
File number for the Crop Window File 

Length of one record of the Substrata Historical 
File 

Length of one record of the Segment ID File 
Length of one record of the Crop Window File 


ICASE Case number 

RSEED Random number seed 


ICALIN File number of crop calender intermediate file 


f I 

I 

! I 
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ILIST 

List option 

= 1 to print out input card images (in subroutine 
FILGEN) 

= 2 to print out the contents of the three output 
files 

= 0 to suppress all printing except for error 
messages and statistics 

ITSFG 

Training Segment option 

= 1 if the Training Segment ID list is used; 
= 0 if all segments are training segments 

IOUT 

File number for print file 

I WIN 

Number of crop windows (4) 

MXSEG 

Maximum number o f segments in any substrata 
(150) 

ENDATA 

End -of -data indicator (4HZZZZ) 

ZERO 

Zero constant 


Output; 

The output data is written on the following three files; 

1. Segment ID File 

2. Crop Window File 

3. Substrata Historical File 

Subroutines Called; 

CALERR Computes predicted bio window start/stop dates 

BETAD Genei, -e random number using incomplete beta distribution 

GRID Computes the weather index for segments latitude and 

longitude 


Error Messages; 

1. "THE FOLLOWING SEGMENT DATA WAS DROPPED DUE TO 
DISAGREEMENT WITH THE SUBSTRATA DATA. " followed by 
a printout of the segment, country, region, zone, stratum, and 


.f 
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Bubstratum from the current record of segment data from the 
Segment Intermediate file and from the current record of sub- 
strata data from the Substrata File. This error message indi- 
cates that the indicated set of Segment Data c«nnot be matched 
with any substrata on the Substrata Intermedi .te File. Possibly 
one file or the other is out of order. 

"THE FOLLOWING SEGMENT DATA WAS DROPPED BECAUSE 
IT DID NOT BELONG TO ANY STRATA ON THE SUBSTRATA 
HISTORICAL FILE" followed by a printout of the segment, 
country, region, zone, stratum, and substratum from the current 
record of the Segment Intermediate File. This message indicates? 
that the indicated segment is being dropped because there are no 
more data records available on the Substrata Intermediate File. 

Hence there is no way to match up the indicated segment with 
the proper set of Substrata Data. Again one file or the other 
may be out of order. 

"REGION NNN ZONE NNN STRATA NNNN SUBS NNNN BETA 
FUNCTION COULD NOT CONVERGE ON A SOLUTION. " This 
message means that subroutine BETAD could not on a solution 
for RSEED. 

"REGION NNN ZONE NNN STRATA NNNN SUBSTRATA NNNN 
SEGMENT NNNN NO CROP CALENDAR DATA AVAILABLE 
FOR SEGMENT INTERMEDIATE FILE RECORD. SEGMENT RECORD 
•SKIPPED. " Self explanatory. The ID is for the segment record 
being skipped. 

"REGION NNN ZONE- NNN STRATA NNNN SUBSTRATA NNNN 
A GROUP 3 SUBSTRATA HAS 1 OR MORE SAMPLE SEGMENTS. " 

A group 3 substrata must not have any sample segments. This 
error is job fatal. 
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6. "REGION NNN ZONE NNN STRATA NNNN SUBSTRATA NNNN 
A GROUP 1 SUBSTRATA DOES NOT HAVE AT LEAST 1 
SAMPLE SEGMENT. " A group 1 substrata is supposed to have 
1 or more sample segments. The group number is reset to 3. 

7. "REGION NNN ZONE NNN STRATA NNNN A STRATA WITH AT 
LEAST 1 GROUP 2 SUBSTRATA DOES NOT HAVE A SAMPLE 
SEGMENT IN ANY GROUP 2 SUBSTRATA. " A group 2 strata 
must have at least 1 sample segment. 

8. "REGION NNN ZONE NN STRATA NNNN SUBSTRATA NNNN 
BETA FUNCTION RESET AAAAAA VALUE SINCE NOT 
BETWEEN 0 AND 1. 

EITHER AAAAAA OR AAAAAA HAVE BAD VALUES, NNN. NNN 
NNN. NNN. " Subroutine BETAD can not operate outside the 
specified limits. 

Definitions of Local Variables ; 

2 

AREA Area of a substratum in Km 

GWHDR Two word array containing die header for the Crop 

Window File in the format 
4HCROP, 4HWIND 

I Index in DO LOOPs 

ISEGR Index for number of records read from die Segment 

Intermediate File 

ISTRTP Strata type flag: 

= 1 if there is at least one segment in the current 
substratum; 

= 0 otherwise 

NFILL Number of words required to complete the header record 

or the trailer record of one of the output files 
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SKHDR Two word array containing the header for the Substratum 

Historical File in the format 
4HSUB, 4HRIST 

SIDHDR Two word array containing the header for the Segment ID 

File in the format 

4HSEGM, 4HENT 

TPWSS PW K = Tem P orar y location for * proportion wheat for a 

substratum 

IREGP, IZONP, TSTRP - Previous substrata history intermediate file 
ID (Reg. - Strata) 

IGRPR 4 0 Do not read crop calendar intermediate file 

= 0 Okay to read 

ICRPPR 4 0 Crop calendar ID does not match substrata history 

intermediate file 
= 0 IDs match 

ISSUE Number of segments in a substrata (used in group 

processing logic) 

IGRP2 Number of Group 2 segments in a strata 

ICYl Constant 'CV1' 

I DEV TP Constant 'DEVTPW 

IHISTP Constant ’HISTPW 

ISIGMA Constant ’SIGMA’ 

ICTRY1, IREG1, 12 ONI, ISTRA1, ISUB1 - Crop calendar intermediate 
file ID 

IGRP1 Number of Group 1 segments in a strata 

ISWII Flag indicating whether segment data is spring = 1 

or winter = 0 

XI Random number output from BE TAD 

XBAR Mean value of variable input to BE TAD 

SIGMA Standard deviation of variable 
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LUHP FLOWCHART 


REWIND FILES 
I 5 IDF* 5 EO 10 
ICMr-CROPCAL 
ISHF-SU8STRA 
HIST. 


COMPUTE tm. 
SIGHA'IOPT « 0 
1ER « 0 


WRITE HEADER 
RECORDS OH 
THE 3 FILES 


CALI BETAO 
TO COMPUTE 
At VIA BETA 
distribution 


INITIALIZE TO 0. RE AOS F- READ /HO 

read segment ikt. file. 

NS EG TO KtfEG-NO OF 5EGS 1SEG1 , 

. I20NP , 1 5TRP -PREVIOUS SUBSTR, 

REC ID. 

ICRPS-READ/NO READ CROPCAL 
ICRPPR-Pv. CROP CAL/SUBSTRA HATCH 
JGRPl 


READ A RECORD FROM 
INTSUB-SUBSTRA FILE 


PRINT ITERA 

EXCEEDED 

MESSAGE 


IS ICRPF 
• 0 * READ 
CROP CAL FILE 


SET CYl, 'SIGMA' 
ANO ITS 
VALUE IN 
PRINT IOC 


SET 3EVTPW 
AND ITS VAL 
IN PRINT LOC 


SET ICRPPR 
f 0 * NO 
MATCH 


IF iLlStV 0 
WRITE EOF MESSAGE 


READ I CAL IN 
INTO ICTRY1, ETC 
AND DATA INTO 
IDAYS. IOAYSI, 
ETC 


PRINT 
DATA RESET 
MESSAGE 


^EST IC7RI2 TON 
SEE IF SEC FILE 
NJAS EOF ' 'till? 


^T£ST INTSUB^ 
ID VS ICALIN 
FOR «, *, > 
SwOf 1 


5ET 

ICRPR f 0 
IGRPPR t 0 
NO OATA/Rt) 


SET 

ICRPR - 0 
ICRPPR F 0 


SET 

ICRPR * 0 

ICRPPR » 0 


. SET ISSUB 
. 0 SUBSTRA 4 

OFSEGCTR 


.✓tHECK IREG >S 
^VS IREGP THRU 
ISTRAI VS ISTRP 
TO SEE IF 
STANCE IN STRAT^ 


STORE fREG. ETC 
INTO IREGP. ETC 
STORE 0 IN IGRP2 * 
WITHIN STRATA 
GROUP 2 SEG. COUNT 
AND SET TGRP1 » 0 

.140! ' ■' » ■ ■ ' ^ 

IF I GPP * 2 SET IGRPT 
• 1. IF ICRPPR .» 0 
CALL CAl ERR TO COMPUTE 
CROP CAL ERRORS FOR 
WINTER THEN SPRING 


ORIGINAL PAGE IS 
OF POOR QUALITY 













LUMP (CONTINUED) 
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CLEAR IDSEG 
LIST OFSEGN 
IN SUBSTRA. 
TO 0 


SET ISWH . I 
FOR SPRING CR 
0 WINTER 


SET NSEG 
* O.NO.OF 
SEGS IN SUB- 
STRATA 


IS ICTRVZ 1 
• '2ZZZ' 
EOF ON 
W INTSEG^, 


ADO I TO 

issue 


ADO I TO 
NSEG 

STORE SEG 
ID-ISEG 
INTO IDSEG 


CALL GRID 
TO COMPUTE 
INDEX 


ORIGINAL PAGE Eg 
OP POOR QDALTra 










































SUBROUTINE ERRMES 
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Error message subroutine: Writes error messages on the print 
file as directed by flags in the calling sequence. 

Call ERRMES {ICARD, ICODE) 

r .CARD - Type of card containing the error. 

= 1 for substrata historical data; 

= 2 for substrata statistical data; 

= 3 for sample segment ID data; 

= 4 for substrata crop widow data, 

= 5 for crop window error data. 


ICODE - Error code (1 - 19) 

In addition to the above two quantities specified through the 
argument list, the following input quantities are also required 
and are transmitted through labeled common: 

IPRNT - Card image print flag: 

= 0 if the current pair of card images have not been printed; 

4 0 if they have been printed. 


IERR - Previous number of input errors. 


ICTRY 

IREG 

IZONE 

ISTRAT 

ISUB 

ISEG 

ICTRY 2 

IREG2 

IZONE2 

ISTRA2 

ISUB 2 

ISEG2 


The country, region, zone, stratum, substratum 
and segment from either the Substrata Historical 
Data, the Sample Segment Data or substrata 
crop window data. 

The country, region, zone, stratum,- substratum 
and segment from either the Substrata Statistical 
Data or the Crop Window Error Data. 


ISW1 
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NAMSUB 

SUBAR 

HISTPW 

ITYPE 

NAGR 

NAL 

IGRP 


The substrata name, area, Historical PW, etc. , 
and card type from the Substrata Historical Data. 


DEVTPW 


DEV TPM 

CV4 

ITYPE2 


The Deviation in the True PW, the coefficients for 
the True PW, and the ratio of the True PM and the 
card type from the Substrata Statistical Data. 


LAT 

LONG 


ITRIND 

ITLIST 

ITYPE 


The latitude longitude, spring /winter wheat 
indicator, etc. , and the card type from segment 
ID data 


IMO 


ISW2 
IYR1 
IMOl 
IDA 1 


Origins of three arrays dimensioned 8 in which 
the crop windows are stored by year, month, 
and day, For spring and winter, from substrata 
crop window data 


BELT WE 

IPLNTE 

ISEGSD 

DELWE1 

IPLNT1 

ISGSD1 ' 


Data from crop calendar error data for 
spring and winter. 
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Output; IPRNT - Card image print flag set = 1 if not already 1 to indicate 
that the pair of card images were printed out. 

GOOD1 - Flag set = 1 to indicate that the Substrata Historical Data 
or the sample segment ID data is no food. 

GOOD2 - Flag set = 1 to indicate that the Substrata Statistical Data 
or the Sample Segment Crop Window Data is no good. 

IERR - The error count is advanced by 1 each time ERRMES 
is called. 

FATAL- Set = 1 if there are inconsistencies between the Substrata 
Historical Data and the Substrata Statistical Data or 
between the Sample Segment ID Data and the Sample 
Segment Crop Window Data. 

Subroutines Called : None 

Error The type of card containing the error is printed out followed by 

Messages , ear ^ d a t a> n one Q f the following error messages is 

printed. 

1. INCONSISTENT SUBSTRATA HISTORICAL AND STATISTICAL 
DATA - The country, region, zone, strata, and/or substrata 
fields do not agree on the indicated cards. Possibly, cards are 
out of order or missing on one of the input files. 

2. .INCONSISTENT CROP WINDOW AND CROP WINDOW ERROR 
DATA - The segment, country, region, zone, strata, and/or substrata 
fields do not agree on the indicated cards. Possibly, cards 

are out of order or missing on one of the input files. 

3. SUBSTRATA AREA MUST BE POSITIVE - The substrata 
area is negative or zero or unspecified. It must be > 0. 

4. HISTORICAL PROPORTION OF WHEAT MUST BE NON- 
NEGATIVE - HISTPW is negative. It must be > 0. 

5. DEVTPW MUST BE LESS THAN 9. 999 IN MAGNITUDE - 
DEVTPW is > 9.999. 
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6. COEFF. OF VARIATIONS MUST BE BETWEEN 0. 0 AND 
9. 999 - One of the quantities CW is < 0 or > 9. 999. 

7. DEVTPM MUST BE BETWEEN 0. 0 AND 9. 999 - DEVTPM 
< 0 or > 9.999. 

8. LATITUDE MUST BE LESS THAN OR EQUAL TO 65. 0 DEG - 
The magnitude of the segment latitude is greater than SLATMX, 
the maximum allowable latitude. 

9. LONGITUDE MUST BE BETWEEN -180 AND +180 DEG. - 
The magnitude of the segment longitude is greater than 180°. 

10. SPRING/WINTER WHEAT INDICATOR MUST BE W OR S - 
The quantity ISW is unspecified or is a character other than 

W or S. 

11. CV4 MUST BE BETWEEN 0. 0 AND 9. 999. 

12. YEAR MUST BE GREATER THAN 64 - One of the crop 
window years is < 64. 

13. MONTH MUST BE BETWEEN 1 AND 12 - One of the 
crop window months is £ 0 or > 12. 

14. DAY MUST BE BETWEEN 1 AND 31. - One of the crop 
window days is <1 or > 31. 

15. OVERLAPPING CROP WINDOWS - The start date for one 
of the four crop windows is - > the stop date or the s :op date of 
one crop window is s the start date of the next window. 

16. GROUP NUMBER MUST BE EQUAL TO 1, 2 OR 3. IGRP 
must have one of the three values specified above. 

17. DELTA ERRORS IN BIO WINDOW PREDICTION DATES 
ARE NOT BETWEEN -1 AND 1. DELTWE and DELWE 1 
must be between -1 and +1. 

18. SEGMENT SPECIFIED AS ORDINARY MUST HAVE A 
TRAINING SEGMENT PRIORITY LIST - Each ordinary segment 
must have at least 1 priority training segment specified. 

19. NEITHER NAGR OR NAL CAN BE ZERO. 



Subroutine CALGEN 





1 

i 

j 




' 1 
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Purpose : 

To read, check and merge the crop calendar and crop error data 
card files into one intermediate file for further processing. On 
Option A listing of the input card files is given. 

Input : 

ISCW, ICWE, ICALIN, ILIST, IOUT, ENDATA, ICTRY, IREG. 
IZONE, ISTRA, ISUB, IYR, IMO, IDAY, I TYPE, ICTRY2, 

IZONE 2, ISTRA2, ISUB 2, BELT WE, IPLNTE, ISEGSD, 

ITYPE2, FATAL 

Output : 

NCR CD, NCRECD, NCROP, IERR, IREGL, IZONEL, ISTRL, 

IPRNT, GOOD1, GOOD2 

Linkage : 

Call CALGEN 

Subroutines Used : 

None 

Local Variable Description 

ICALST = 0 - If for each crop calendar data card, a crop 

error card is to be read 

= 1 - If current crop error card is to be used for all 

substrata in a strata 

= 2 - All strata within a zone 

= 3 - All zone within a region 

= 4 - All region within a country 

ISKSSC - Flag controlling reading of the crop calendar 

error data 

= 1 - Skip reading the crop calendar error data until 

the crop calendar data catches up (i. e. , until 
the region, zone, strata, and substrata agree 
unless the region, zone, strata or substrata from 
the crop error are 0 

ISCC - Flag to denote whether crop calendar error file was 

read after crop calendar data ^0 - yes, =0 - no 
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1CTEM 

IRTEM 

IZTEM 

ISTEM 

ISSTEM 

IMOT{8), IDAT(8), IYRT(8) 


Processing ; 


See flowchart, 
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DBH2NAL PAGE IS 
DP POOR QUALITY 

CALGfN FLOWCHART 









1 ZONE AND 


ISTRAT INTO 


IREGL. IZONEL 


AND ISTRl 
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SUBROUTINE CALERR 


Purpose: 


Given the reference crop calendar, error terms and standard 
deviation of calendar error, this routine computes the pre- 
dicted bio-window start and stop dates and their associated 
errors. 


Input: 


Output: 


None through COMMON 
INPUT COMMON 

IDAYS, IDA Y Si, DELTWE, DELWE1, . IPLNTE, IPLNT1, 

IDAYS - (t , U pairs 1 ^ i ^4 
° 1 i 

CALEND COMMON 

IPREDW, 1PREDS, ICRPEW, ICRPES 


Linkage : Call CALERR (IDAYS, DELTWE, IPLNTE, IPREDW, ICRPEW) 

Subroutines Used: None 


Local Variables: 


DELINl = 8. (t- - t ) + 

1 Oj 


DELIN2 - 6, ( t, - t ) + 
4 X Z °2 


DELIN2 = 5, (t, - t ) + 
j i 3 o 3 


.5 

5 

5 


Processing : 

1. Process data 

a. 


If IDAYS(l) is 0, then there is no crop calendar data. 
Skip steps b-d. 


b. 

c. 


Compute DELINl, DELIN2, DELIN3 
Compute predicted dates (t , t ) 1 ^ i ^ 4 


IPREDW { 1 ) = IDAYS(l) + IPLNTE 

IPREDW (2) = IDAYS(2) + DELINl + IPLNTE 

IPREDW (3) = IDAYS(3) + DELINl + IPLNTE 

IPREDW (4) = IDAY S(4) + DELINl + DELIN2 + IPLNTE 

IPREDW (5) = IDAYS(5) + DELINl + DELIN2 + IPLNTE 

IPREDW (6) = IDAYS(6) + DELINl + DEL3N2 + DELHI 3 + IPLNTE 

IPREDW (7) = IDAYS(7) + DELINl + DELIN2 + DELIN3 + IPLNTE 

IPREDW 8) = IDAYS(8) + DELINl + DELIN2 + DELIN3, 

+ DELTWE(4) * (IDAYS(8) - IDAYS(7)) + IPLNTE + . 5 
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Compute error terms 

ICRPEW(l) = IPLNTE 
ICRPEW (2) = IPREDW (2) - IDAYS(2) 
ICRPEW (3) * IPREDW (4) - IDAYS(4) 
ICRPEW (4) = IPREDW (6) - IDAYS(6) 
ICRPEW (5) = IPREDW (8) - IDAYS(8) 


SUBROUTINE BETAD 
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/ . 
7 v s 

. 3 

•• ? t 



Purpose: To compute a random number based on the Beta distribution 

or normal distribution, given a random number seed. 

Input: No input from COMMON or files. 

Output: No output to COMMON or files. 

Linkage: CALL BETAD (SEED, XBAR, SIGMA, XI, IOPT, IER) 

Input: SEED A double precision random number seed used to 

get a uniform random number P, 0 <P < 1 

XBAR Mean value X, 0 s X ^ i 

SIGMA Standard deviation cr, 0 £ (3 

IOPT = 0 use Beta distribution 

4 0 use normal distribution 

Output: XI Random number based on Beta or normal distribution 

X. 

i 

IER Error flag 

= 0 no errors _ 

= 1 XBAR not in range, 0 ^ X s 1 so was reset 
within subroutine 

= 2 SIGMA not in range, 0 ^ a ^ 

X+ € 

' -4 

was reset within subroutine, C = 10 

= 3 Fatal error, XI could not be found within con- 
straints of subroutine; e. g. , within 35 iterations 
via the inverse incomplete beta function method 

SEED To be used for next call to BETAD (a double precision 
number) 

Subroutines used: 

CALL RDM 1A (SEED, P) to get uniform random number P 

SEED = double precision 

CALL 1BETAI (X, A, B, P, IER) to get incomplete beta function 

Note: IBETAI is algorithm AS 63 Appl. Statist. (1973), Vol. 22, No. 3 

SQRT (X) squareroot 

A LOG (X) exponential 

EXP (X) natural logarithm 

ALOG(X) natural logarithm 




Local variables: 

A 

B 

BP 
CHK 
DIFF 
DIFF 1 
EP 

FLAG 

H 

I 

K 

P 

PHI 

PLO 

PO 

R 

RN 

SIG 

SG 

SIGMA L 

S1GSQ 

SIGT 

T 

W 

XAVG 

XHI 

XLO 

XSQ 

Y 

YP 
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First Beta parameter 
Second Beta parameter 
Recalculated second Beta parameter 
Normal distribution parameter 
Accuracy check 

Check if XI close to 0 

-4 

10 , accuracy of answer 

INTEGER Flag to signal XBAR > . 5 
Beta approx* parameter 
Loop counter 

REAL 2. , method threshold constant 

Output from RDM1A, f{X) for Beta function 

Limit for iteration of P 

Limit for iteration of P 

Output from IBETAI 

88. , Gamma constraint 

Normal distribution parameter 

Stores SIGMA, or SIGMA L, for use in routine 

10 check on successive answers in loop 

Upper limit on SIGMA 

SIG * SIG, intermediate calculation 

Method threshold sigma- 

Normal distribution parameter 

Beta approx, parameter 

XBAR, or 1 - XBAR if XBAR > .5 

Limit for iteration of X 

Limit for iteration <5f X 

XBAR * XBAR, intermediate calculation 

Beta approx, parameter 

Beta approx, parameter .. 

- 1 y' 


.* ; - r- ; . y. 


. ■! — V*" 


BETAD Subroutine Equations 


Equation set 1 - normal distribution parameters: 


282 34- 6027 -RU- 00 

Page 208 


In 0 < P ^ . 5 

P^ 


. 5 < F<1 


(1-P) 


CHK = T - 


2. 30753 -I- . 27061T 
1. + . 99229T + .04481T* 


RN = 


- CHK 0 <PS.5 

+ CHK . 5 < P< 1 


Equation set 2 - SIGMA upper limit: 


SiGMA L = XBAR ^ xVa£T£ p EP = 10 “ 4 


Equation set 3 - Beta function parameters: 

A XBAR 2 - XBAR (XBAR 2 -f SIGMA 2 ) 


A = 


SIGMA 


.-(A rX 

V XBAR 


- XBAR 


Equation set 4 - method threshold: 


SIGT = XBAR V kBA Wft K = 2 


Equation set 5 - Beta approximation parameters: 
YP = -RN 


H = 2 


C 2aVt + 2hTr) 


2 

YP - 3 


w = IPJH±Y] 

H 


r 1 1 ^ . 5 2 ^ 

" V2B - I ■ EA - 1 A 6 “ 3H J 


M 
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J 

1 

Equation set 6 - XI for Beta approximation: \-r 


XI = 


A + B • e 


2W 


ABS (A LOG (B) + 2 * W) * 87 


Equation set 7 - recompute A and B, Beta parameters*. 

(R - 1) 


B 1 * B 


A + B 


.1 

■1 

0 


A 1 BP A 

A "b“ * A 


Equation set 8 - 


XI 


(XH1 4 

— 


2 . 
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ENTER. 


Choose uniform 
random no. 0 <P < 1 

CALL RDM1A 
(SEED. P) 


Compute T, CHK, RN 
normal distribution 
parameters 

Eqn, set 1 


Inputs: SEED (double precision) 

XBAR , 

SIGMA 

IOPT 

Outputs: IER 
XI 

SEED 

Const-nts: EP = 10 ^ 

SG = 10-10 
K = 2. 

R = 88, 


/Normai\ 
distrib. ? 
IOPT 4 0 , 


XI = RN 


RETURN 


./Che ckN^ 
^ end cases 

0 £ XBAR £ 1 
0 < SIGMA 


xi=i 

XBA R > 1 

XI=0 

XBA R<0 

XI=XJ3AR 

XBAR=0 
XBAR= 1 

IER 

= 1 


RETURN 


j I YES 

FLAG = 0 


' Switch ? 
XBAR . 5 


YES 


FLAG = 1 
XBAR = 1 - XBAR 


Compute upper limit on 
SIGMA - SIGMAL 

_4 

Eqn. set 2, E = 10 



BETAD Subroutine Flowchart (Sheet 1 of 3) 










. set 8 



Set first guess XI = XBAR, 
I = 0 

Limits XLO = 0, PLO = 0, 
XHI = 1, PHI = 1 
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Recompute A and B 
so that A+B < 88. 

Eqn. set 7 



1 = 1+1 
loop 


1 > 35 
give up? 


YES IER = 3 
> ^ XI = 0 


RETURN 


CaillBETAI (XI, A, B, PO, IER) 
Get PO = result of guess XI 


Compute new 
guess - XI 


' x IER>0\^ YES 
bad call / 


Guess 


y^ABS (PO-P) ^ EP \ 
yEP=lO~^ or XI close to 0 
MIN (A BS (XI-XLO) , A BS 
\(XI -XHI)) <SG, SG = ✓ 
\ ,„-10 / 


YES 


I ER=0 


/o\v itcu?>~ YES 
F LA G = 1 XI- 1 -XI 


Compute new limits 
XLO = XI V 
PLO = PO ‘ 



PLO = PO 
XHI = XI 
PHI = PO 


P < PO 


' RETURN 


BETAD Subroutine Flowchart (Sheet 3 of 3) 

















6027-RU-00. 
,12 * 
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SUBROUTINE GRID 

Purpose : To control the determination of the index number for a given 
segment latitude and longitude on the global index matrix. 

Input: QLAT and OLONG in INPU T COMMON 

IREG, IZONE, ISTRAT, ISUB and ISEG 
IERT in calling sequence 

Output: Index in input COMMON 

Linkage : Call GRID (IERT) 

IERT - Output error flag 
=0 - o. k. 

jiO - no index could be found 

Subroutines Used: 

Call GRDCAL (IGRID, JGRID, INDEX, FI, FJ, IERT) 

JGRID Global S rid coordinates 
INDEX - Index no. 

FI, FJ - Fit. pt. version of IGRID, JGRID 
IERT - =0 - o.k. , /0 - no index found 

Processing : 

1. Set IERT = 0. 

2. Compute IGRID, JGRID, FI and F J from Equation set 1-6 
in Problem Description. 

3. Call GRDCAL to get index 

4. If IERT = 0, return. 

If IERT ^0, print error message as defined in Problem 
Description and return. 
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SUBROUTINE GRDCAL 


Purpose: To determine the most appropriate index vaLue associated 

with the global grid coordinates IGRID and r GRID. The 
IGRID and JGRID may not have an index value assigned to 
it on the index matrix file. If this is the case a boundary 
grid is drawn about the IGRID and JGRID position and each 
of the eight grid points is tested in a priority order for an 
index value. If no index can be found, the subroutine returns 
control. See Gene Rasmussen’s write-up "Weather Index 
Generation" for details of theory and method. The boundary 
grid looks like: 


1-1, J+l 
1-1, J 
1-1, J-l 




► 1+1, J+l 

i TX'I T 

\ r ( 

1 \ 

* i. 1 

i k : t 

f J 1 

ft 4 

f A,t A | J 

k T1 1 r i 

LJW 

XT A | J -1 


where I = IGRID 
J = JGRID 


Input: Index from file IGRDTP via COMMON DIRAC 

IGRDTP in FLAG COMMON 
IGRID, JGRID in CALL SEQ. 

Output: Index in CALL SEQ. 

Linkage : CALL GRDCAL (IGRID, JGRID, INDEX, FI, FD, IER) 

IGRID, JGRID - input global grid coordinates 

INDEX - Index no, (output) 

IER - =0 - index found 

- no index found 

FI, FJ - floating point equivalents of IGRID, JGRID 
Subroutines U sed: 

C A LL RDGRID (JCOOR) - JCOOR is column coordinate =ree. no. 
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State matrix; given the state no. (the column no. ) f 
each row gives the sequence to try each coordinate 
of the boundary grid about IGRID, JGRID. This is 
a constant matrix containing bourdary matrix 
positions. 

Boundary coordinate list. Each column of the 
matrix represents a grid position on the boundary 
grid matrix. Each row represents the X, Y coordinate 
and each entry is the amount to subtract or add to 
IGRID, JGRID to get current grid position. Used in 
conjunction with ISTATE. 

1STAT State no. , SLOPE - SLOPE 

IPT(8) Current states grid position sequence list 

Processing ; 

Rules for quadrant determination in boundary matrix. 


Local Variables: 

ISTATE(8, 8) 

IBOUND(2, 8) 


(FI - IGRID) 

+ 

- 

- 

+ 

(FJ - JGRID) 

+ 

+ 

- 

- 

Quadrant 

1 

2 

3 

4 


Rules for determining state given quadrant and SLOPE = 


Quadrant 

SLOPE 

1 

<1 

1 

^1 

2 

<-l 

2 

a- 1 

3 

<1 

3 

si 

4 

<-l 

4 

a -l 

State 

1 

2 

3 

4 

5 

6 

7 

8 


FJ - JGRID 
FI - IGRID 


See flowchart. 


Subroutine GRDCAL Flowchart 
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Call RDGRID 
( JGRID) to read 
record in IREC 


RETURN 


Is IREC (IGRID) 
^0 


Compute 
INDEX = IREC 
(IGRID) 


1 

JGSAV = JGRID 

V I 

1 ! 

r 


Set IER 5*0 


Compute 
SLOPE = 

(FJ - JGRID)/ 
FI - IGRID) 


ES .J Set ISTAT 


Determine 
quadrant using 
diagram 


Is SLOPE 

<-l. 


YES 


Set ISTA T 
= 7. 


Is SLOPE 

< 1 . 


Set ISTAT 
= 2 


Is SLOPE YES- * 

<-l» — Set ISTAT 

NO = 3 


Set ISTAT L/n 
= 4 


Is IREC(IG) 40 


= JG 


Set ISTAT 
= 6 


Call RDGRID( JG) 
to read record 
into IREC 


Compute for 1=1,8 
IPT(I) = ISTA TE 
(I, ISTAT) 


Is JG = JGSAV 


Set ICT = 1 - 
count on no. of 
grid p 


1FTT = IPT 


Set 

IG = IGRID + 
IBOUND (I.IPTT) 
X coordinate for 
current grid 
position 


Set 

JG = JGRID + 
IBOUND(2, IPTT) 
Y coordinate 


























SUBROUTINE RDGRID 
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Purpose: To initialize, read a record or close the index matrix file 

on unit IGRDTP 

Input: IGRDTP in FLAG COMMON 

JG in calling seq. 

ICDIN in DIRAC COMMON , " - 

Output: One record in 1REC in DIRAC COMMON 

Linkage : CALL RDGRID(JG) 

JG is record no. or flag 

If JG = 0, open the file via OPENMS, call for CDC and define file 
for UNIVAC 

If JG = -n, close the file via CALL CLOSEMS for CDC ar-d close 
for UNIVAC 

Processing : 

For JG = +n 

Read n^ 1 record from IGRDTP via CALL READMS for CDC or 
read for UNIVAC into IREC. 500 word record. 
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PART V 


SUBROUTINE LISTINGS 


^ rj ^ .» H’T^'n ''’^TVr 


:*(~>':rvr£ .v 


It <*<**•« ;.»-^rt:,V . 








, s 

i? 


;....> 


Jf-V-J, 
“» ■: ■>. 


« FIT ALGAMA* It 760430* b4S00 


000001 
000002 
000003 
000:000 
00 00 Ob 
OU 0;o no 
000007 

ooooob 

O'OOO 0 9 
00 0 0 t 0 
0011 01 1 
000 VI 2 
000013 

ooovio 

0 0. >01 b 

0000 I e 

ooooi / 

00001 0 
000019 
0 0 0 (It 0 
OOO'IJi? I 
OUOO?2 
000023 


StnjI.’Ot.'TlNF At GAMA ( X* GAMMA* IFR) 
CAt.ClJlATFS THE GAMMA FUNCTION 


X 

GAMMA 

ICR 


IMpUT 

MijTPUI 

ihror flag 


* 60 IF X NOT IN RAN Of 0. TO 08. 


OT WFMS f MM S'M4) * C C 6) 

DflUHLF PW-I CTSIO’1 »*C*F*U.HLNPI*Y*2 

DA 1 A ll/*3.0 30 19081 o2UD-6*?.79Pi?H0995fl3' w 5t- 1 .2191 7 3<l8706320“4 1 

*3. 7536';, nb?26 30 70-4, -8.3754 46^1 3b 1 7D-4 ,2. 06t O* 1 lKb02?b54<)-3» 

*<■ ? .83 6 1|>625 2 0 37 282 1)- 3 » 1 .1 t'197l45357789P-2*-2.t>M f! 65949b30oD-4t 
♦ 7.4'?489l 5419444 70 '■2*6.15 769261 24 1 5b5D-2 r 9. 1 160 0 330 166781 D- l » 

*4. 2? 784 3 351 02 3 35U- 1 * 9. 9999999999999-flU- 1 / 

DA I ^ 0 /-l .VI 7526’M 7b269?U-3*0.41 /5uP«17bO>14?0-4.-S.95234V95?3*0 , lbr 
♦-4*7.93650/9 s650/94l>-n*-<r. /777/77777/770U-3 *6.33 333333 333333D-2/ 
DM A 1.LNPl/.9l«93Hb33?00673/ 

G ANMAs 11 • 

If'KsoO 

IF CX .It. 0.0 .DR. X ,f;T. 88.0) Rk TURN 
I»T<=0 


At GAMA 
Al GAM* 
Al GAM* 
Al C A M A 
Al GAM A 
At G A M A 
Al G A M A 
A I GAM A 


Al GAMA 
Al GA'MA 
At (.AM A 
At GAMA 


Y = X 

IF tY.Ct. 


to.) 0(j 10 60 


0 0 (to? o 



Z=t)mj|'.(Y* 1 .0) 

0000? b 



IF(7.Kt .0.0) 10 TO 

00 00? 6 



2 = 1.0 

0000? / 



(1=2.0 

nooiicO 



GM TU 27 

00 <i (i ? 9 


?0 

t;=iHi) 

000030 



DM ?6 J=2*l« 

00 0 0 3 t 


?6 

G = G ♦ / * M ( «J 1 

000 1)32 


?7 

IF(Y-J.n) 20,45,30 

nun 033 


28 

IF lY.f.r.2.0) CQ 10 

00 0 0 3 4 



G=U/Y 

0 00 0 $ 5 



IF t r .1 £.1.0) G=G/(1 

00 oo 36 



GD TO 4b 

000037 


3H 

F-1.0 

000030 



K = DTnT(Y-7+.!0-2 

000039 



on 40 j=l*K 

ouo O'OO 



Y s Y-l .0 

00 00 «1 


40 

f-=F •> Y 

000042 



G=G*F 

000043 


4b 

CAMMA=()l or.cr.) 

00 0 0 4 4 



HI TURN 

00009b 


60 

Z = Y*Y 

0 0004 6 



C=L ( 1 ) 

0ooo'i7 



DM 6b J=2*b 

0 0 0 0 4 0 


85 

G=G/Z*c<JT 

000049 



0=(C6/y*HI.NI’I ) + ( CY 

OOOO'-O 



t;Af1 ,, A = r. 

OOOO'.l 



HI in h i; 

0 00 O'. 2 



two 


Ob 


A I UAH A 
Al CAM A 
Al GAhA 
Al G A M A 
Al GAMA 
Al GAMA 
At l.AMA 
Al UAH* 
A! GAMA 


At GAMA 
A1.CA.HA 
Al GAMA 
A! GAMA 
Al G AM A 
Al G A T 1 A 
Al G All A 
Al CAM A 
Al CAM A 
Al CAMS 
A I GAMA 
A I (.Am A 
Al CAM A 


Al GAM A 
A I GAMA 
At GAMA 
Al GAM* 


At GAMA 
Al GAMA 
ALGAMA 
Al GAMA 
Al GAMA 


Al GAMA 
At GAMA 
Al GAMA 


*NtW 

♦ MtW 
♦NEW 

*rtt w 

♦ MF W 

♦ h'k b 

*♦-7 


*NtW 

**-1 


) 

l \ 




W ,kii , Jf-rnL vja 




k iJbiAVKVJ ‘J* 









• v . - 


ELT HfcTADtt 

t 760401* 67415 * 1 

000001 


SMHHO.U T I NF PE T AT>( SEED* XRAR i S I PM A t X I » I'OPT t lift ) 

0000 02 


pnunir PHr ciston seed 

00 0 00 3 


iNlfMii Ft if. 

000004 


RF At K 

000005 


DAI' A W/PH.y 

000006 


DATA K/?,/ 

00000/ 


DATA Tp/. 00006/ 

ooooos 


DATA KG /1.E-8 / 

oooonv 


DAI A f i. AG/O / 

00 1)0! 0 


DATA T/o/ 

OOOOl 1 

" 

so e&f(Tint,|f 

0 0 00 T 2 


Ft ac; =o 

000013 


I = o 

OOOo 1 4 


XAVf;=X»Ali | 

00 00 t s 


XTsO.fl 

OOOO 1 (> 


i t ruo 

OOOOl / 

e 


0 0 00 1 li 

c 

CHOOSE UNjTORM RANDOM NUMBER 

OOOO 19 


CALL T(oMlA(StH)»P) 

000020 

e 


000021 

c 

COMPUTE l,<f'K,RN» - NOKMAl nlSTRIH. PARAMf TFKS 

000022 


T=S0KT (ALPGt t . U / ( P *P ) ) ) 

oonopi 


ir tp.r.r.0.51 r~st.KT(ALnBf 1. o/di. o-P)*(i.o-p)m 

0 0 0024 


CMKsT-(2.3oTS5f.2706J*r)/(1.0+0.9922VfrI+.Ofl4(H*T4Tl 

000025 


H*f®CWK 

0(10 Q26 


rrtp.LF .0.51 mis-sii 

000027 

e 


ocno^a 

c 

IF NORM AT DIPT Kilt, UP TI ON » JUMP OUT 

000029 


If UuF T.ED.O) GO Tu 1 0 

ooooto 


XfsftN 

OOOO 51 


J/r TIlftD 

400032 


70 CONTI MuF 

000033 

y e 


000030 

e 

CHECK FUR FND CAStS 

0 00:0 55 


IF (XttAR.LT .0, .UK.XBAR.r.T.l.) 1E«*1 

000036 


IFCSIGMA.I T.0.01 IER=2 * 

0 0 0-0 3 / 


i'p (XPAR.r,T.O.0.AND.ARAR.tT.l.O.AND.S!GMA.BT.O.O) GO 

OOOO 5 B 


■ Xr=XUAR 

000(1 ,59 


If ( y 'B A H .LT. O.TXI = 0.0 

000 o 0 0 


1FCXUAH ,GT. l.IXI = 1.0 

000:041 


HE ('fifth 

00 0 0 42 

c 


000043 

e 

SWITCH TF AVERAGE ABOVE HALF 

000044 


! 0 CONTI HUE 

000045 


IF ( XM Aft .1. E .0 .51 GO TO 20 

OOOO' 1 6 


FLAGS) • 

0 00 04 / 


XAVfisJ ,0-XBAK 

0 0 0 0 40 

e 


000049 

c 

COMPHTf UftRLR LIMIT ON STUMA 

oo noso 


20 CONTINUE ' 

n o o o r i i 


STUMAt =XAVG*SOftT((1.00-XAVG)/(XAVGTFP)) 

000052 


S 16=6 T GfA 

00 0053 


If ISir.MA.Lt.SlGKAL) GO TU 30 

00 0054 


ST(*=6T(;>t'AI 

000056 


If K=2 

000056 

■ c 


00405/ 

c 

cuppiiif the method thheshhoiu 

0 IIOO'M) 


30 t.*<NT 1 





Of TAD 
Of TAD 
or TAD 
or t ao 
or iao 
or r a o 

or i AD 

or i m> 
nr r ad 
or r *0 

MOOS 

MOu« 

MODS 

or r ao 
or r *0 
or r ad 
nr ? ad 

0! f Af) 

or i ad 

Of T A D- 
or r ad 
or tad 

01 l AD 

nr tad 
OP' tad 
or tad 
or i ad 

Of TAO 

on ad 

til T AD 
. or tad • 
of tad 
or t ad 
or i ad 
on ad 
or tad 
or i ad 

OfTAU 

MOOS 

MODS 

or tad 
O f 1 ad 

on ad 
or t ad 

Of ]A0 
Of I AL> 
Of 1 AO* 

or t ao 
or tad 
or r ad 
or i ad 

or TAD 
or i ad 

or T AD 

or i ad 
or t At> 
or j ad 
nr tad 



A -A I 

%r * i 



s 1 0 T =X A VG* SO R T < ( \ . 0- X A Vf. ) / ( X ft V i» ♦ K ) ) 


no no’U) 
00 tit) it 
ODD 07 2 
0 0007 3 
000074 

non 0^5 
oonooo 
oor>0°7 

0 o no oh 

0U0079 

o un i no 
non ini 
000 10 *? 
000103 

nooi')4 

00 0 1 Ob 
0 0 (1106 
0001(17 
0001 06 
000107 
000110 
n-0'ti.j 1 1 
0 001 Id 
ouni i 3 
ooni i o 
00 01 15 
0 (lot 1 (> 
0(101 1 / 
0 0 oiio 


COMPUTE flFTA PARAMETERS A ANO b 

X3<i=XAVf»AVC 

sii.su-sTGf.siu 

a - ( xsrn-x a v t. » c xsr+s i r.su) )/S icso 

B=( U.O-XAVG)/XAVt.)*A 
If CfUG.M .GlGT) 00 TO 40 


APPHOX that tow he thou 


COMPUTE Pl^A approximation paranfters 

Y'P = -KN 

HS-rf.o/ UiO/(2.0*A- 1.0) + t.0/(2.O»B » 1.0)) 

yslYP^YP- 3 . 0 ) /o.l) 

H=C YP* 5 WRT (il+Y) 1 / 

1 H - ( 1 . 0 /( 2 . 0 EB- 1 . 0 )- 1 . 0 / C 2 .U*A» 1 . 0 ))* lY-f 5 . 0 / 6 . 0 -?. 02 (J.Q*H)> 


COMPUTE XI 

IE(ABS<A'LOG(l)> ♦ ?« *W) ,OT* 67.0)UO TO 50 
X T = A / t A+*i*EXP (2.0 *W'T) 

G O 7D <>0 


ITERATIVE MU MOO 


RECOMPUTE A AND B IE' OVER LIMIT 
40 CONTINUE 
C a=A «(1 

If trHK.l T.K) no TO HO 
HI =nj/cMK)HR-l.) 

A = tHP/|$)*A 
ti-HP 

60 CONTINUE * 

I = ! 0 

PHI=l. 

PLU=U. 

XU I- 1. 

XL 0=0. 

XT - XAV(j 
120 1=1*1 

JMT.ini.35) GO TO 1 00 
CAM THE TAI(XT»A»RtPOtlFK) 

IE ULP.r.f.O) GO TO ino 
D TE F = A ’l S l PU“P ) 

DIET" t = t MINI fA«'Sf Xl-Xin) . AOStXT* 
IF-Ifurf .LF.rp.uR.0iFEl .LT,5G ) 


i| 




6§ 


XHIJ) 

no in 60 


CHFCX TE |,CiNF t WI THIN TOI ERANtF 
IT (POvl.r .P) GO TO 105 


XT' 1 = X T 
PHl=t''l 
GO TO 1 06 

105 CONTI NOE 

xi (j~x r 
PI o-pf 

106 l ON I I t l|E 

XI = f > H 1 ♦ XL0)/2. 

GO To i 20 

iNIvOI! U1 I URN 


BE T AO 
BE TAD 

bet AD 

HE I AO 
Hf T AO 
BE 1 AD 
HE 1 AD 
HE t AO 
Hf I AD 
HE 1 AO 
lit 1 A|) 
ill T A O 
HE TAD 
BE I AO 
HE l A(> 
HP t Ay 

BE I AD 
BE 1 Ai) 
BE l AD 
BE | AO 
MOD 5 
HI I AD 
HI 1 AO 
HI I A'D 
BE T AD 
HI 1 AD 
Hf I AD 
bE 1 «D 
BE I 'D 
BE I A I) 
BE T AD 
til I At> 
Bl T A O' 
BE 1 AD 
BE | AO 
Hf T AD 
BE TAD 
BE 1 AO 
tit TAD 
HE 1 At) 
BE l AD 
bl 1 AD 

!>r I AO 

UE 1 AD 
Hf I AD 
Hf TAD 
til I A D 
til 1 AD 

oi i * i 5 


it.’ £ ; Ljj.UGi. ■ n-iwC.-tJf- k. » 









rn ^ - •-v'.'r-r jgjj ?= 


o 

A 

6 

A 

Si ..: v 

t> t l T 

CALtRHf 

1» 760401 t 6739/ r I 




ouoooi 


SlIUOOUlT I NF CAl.KRKt I DAYS »OELT«F * IPLNTt • I'PHFCt* ♦ IC^PF «*1 

CAL p HR 



noo on? 

e 

COMPUTES PlttDlcTfct) HIO HIKO'Ow START AND STUP DATES WITH IHEIR 

CALF«R 

0 


000003 

c 

ASSnUAUO FKRUMS. 

LALFRH 


otMioo*! 


0 ! KENS I ON | D AYS ( 0 ) * DEI FWt ( 4 I . iPREDh (« ) * ICRPT H CS> 

LAlEkM 



000001* 


IF ( Tl'AyS C 1 ) . t-IJ . 0)011 Tn so 

t*Lf.HR 

O 


oooooo 


DEL INI = DLL 1 *t f 11 ? ( IpA VS (?) - IDAYSU)) ♦ .5 

L A L r k R 



000007 


t)F LID? = YCIDAYS(4) - iDAYSC.vn ♦ .5 

ialfhr 



ouoooa 


DfUIKT - DELIl4 (5)*tlDAYSfb) - IDAYMSJ) *■ .5 

LAU'kH 

& 


000000 


IPl<ri)E(t) = jOAYSfl) 4 T-P1.NH 

calfrn 


0000 1 0 


1»’KH)W(?) = IO,\Y5>(?) 4 r.ELINi 4 lPt«FF 

CALFPR 



oo noil 


■'" iphfuv-(J) = j da y s f j ) ♦ ntLiNt ♦ iplnif 

lalfrr 

o 


oonoi? 


imri)h( a ) a j days (4) ♦ pfcLl'U ♦ on in? ♦ if*i ntc 

lalfrr 


D 

0 <H) 0 1 3 


[I’M Dw ( S) = ID»Yj>(S) 4 ntLJNl ♦ on IN? 4 TiPtNTt 

t alfrR 


oo no t « 


IPKFOS (6) 3 IDAYS(o) ♦ PR 1*1 4 OlLlN? 4 Ptl IN3 4 IPLNTE 

lalfhp 

o 


00‘0 0 t 5 


>] F Hf l»W ( 7 ) ='' J P.A YS t 7 ) 4 ptl INI 4 oniM? 4 Ptl IN S 4 I PEN I E 

t f ir hr 


0 0 0 0 16 


■I'PRFo-l .(P) s IDAYOOO 4 MUNI 4 OF LIN? 4 OLI l'«3 4 0FLTNE(4) 

CAtF MR 



0000 17 


14 ( I PAYS ( 0) - loAfSCnv 4 .6 4 1»»LN?F 

MDUl 

o 


O'OOuttt 


lrNi’tK(i) - iplnif; 

t AL F HR 


oo do iv 


J CKPfc W (?) = 1‘HHI OW (?) - ll)AVs(?l 

CALF: HR 



OOOIJ?0 


iCRPEWf 1) a |PHrUM4) - IP AYS f 4) 

CALFWR 

Q 


O O O il' 1 1 


irPI’tWf/l) S jF’RIPWloJ - iDAYS(6> 

CAR hH 



oooojv 


lCKPLVi (Si = IPHt t)?(«) - II) AYS fO ) 

CALF HR 



00 00? 3 


50 K'l TURF' 

CALFhR 

Q 


ounu?4 


t Np 

CALFHR 


O 


•J 

o 

o 


o 


o 

Q 

© 




Q 

O 



sM 1 ? - "'" " 


j- 

jk i 


. X.'- 


iu i.*4**k**<»ww*i 
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IF HR = URK 1 
CO TO ft OO 

170 Ncwrtr = ocweco ♦ i 
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IF (NA'C.W .t.t. . n .AND. NA(. .Nf. 0)UO TO 2?0 
C-Ht FlDtHfSf 1, 19) 

IT (109(1 .1,1. 0 .AMD. TG9V .LI. 9)00 in 22? 

CALL t l<9rtl S(2, 16) 

iHHlS|('n .!■£. 0.0 .AND. WISH** .tk . I.F2)'GP TO 300 
C AL 1 Fn'-"MF3 (1,9) * 

TF sMMSTI'ATa STATISTICAL DA? A CAPO MS JDSt C(A0» 
air t;K data F 1 KUFS. GTtiFNwISE SKID OVER DATA CHT CKINC 
IF ( I Sl’C .CU. 0 ) on TU 900 
I'PHNTc 0 

IT(A'P,S{titvn>H) .tr. 9.999)00 TO 217 
CHI fRKMFS (2*5) 

ifcr.va .cu . o.o .and. cva ,u.. 9 . 999)00 10 520 
CALI FliKTif 5(2,11 ; 

DO 3.40 1 = 1,3 

IF { rv<n . (VF . 0.0 .AND. CV(t) .It. 9.999 ) 00 TU 350 

C ALL rm-MES (?,6) 

CONTlNijl 

IF ( |-(V1PI| .ct. 0.0 .AND. 0LV1PM .It. 9.999 ) GO TO 900 


CALI TM'DIS (2,7) 


IF ( 01(001 .NF . 0 ) 00 10 9 50 
IF ( (.ODD? ,;tF. 0 ) GO 10 920 
IF (F ATM . NF . oust) Trj 920 

Alt 5.0IIS T H A I A DATA IS VAI ID 
DATA 0" TNTttWFUTATt FILE. 

NSWIIIVr t.SI't'9 f 1 

rutitrltd H- 1 S TM,| TO SlltATt.Hl PlKCF.Nl 


tiki |F ONE PEfUKO OF Sin* STRATA 


ULRtM 
F TLCtN 
FTL01N 
1 1 t.r-k V 
F TL0FN 
( FtltFM 
F lL0 t N 
FTtOtM 
F It r.fN 
F TL0LN 
FtLr.FN 

FILfitw 
F'TLDtN 
Hi Of N 

F I L tit M 
F ! L 0 1 N 
FTir.tN 
F TL0F9 
F H.DF.N 
FTtf-FN 
F itr.tN 
F T L OF ‘ J 
F IF 0| 9 
MU'-P 
F 1 1 OF M 
f Ttr.fN 

F iLOfcN 
| ItOfN 
F T l OF N 
Finn N 
F 1 L 0 ( M 
FTL0F.M 
M( l)2 • 

* TlCtN 

HOI'S 

nr us 
m us 

1 1L0FN 

f 1 1. 0 1 N 

F ILOEN 

FTt.OtN 

FTLOEN 

MI’ljS 

FTLOEN 

Fin D2 

Hl'p2 

FIL01.9 

FlLOtN 
F TLCtN 
FlLOfcN 
Mian 
F 1L01 N 
1 1l"'F n 
F TL OF. 9 
F TLOtN 
Ftt'D? 
f It Of N 
F ILOF.N 

F not N 

i uni.M 


tl 


« 








2fc‘234-6027-RU -00 

Pc.ge 233 




,. j-vyii'if-^f nif !"*!’?' 




.. .~<‘'*r ■■"■-?-> ir'rv- ' •.?■■'.'■•“ "-* 


000179 
000 1«0 
oootni 

0001 f 2 
ooo i»3 
0 O'O 1 n <J 
0 0» 1 J< 6 
000 1 06 
00 0 I H t 

ooo i no 

O'OOH'9 
000100 
0001**1 
ooo ioa 

0 0(1 1 9j 
0 00 1 94 
0 0 01 ‘1*3 
OOO i no 
0001 Mf 
000100 
000199 

000*00 
ooo:,' ol 
000*02 
000*03 
000*04 
000*05 
000,106 
00 0 *0 1 
000*08 
ou07:09 
000*1 0 
000*1 1 
000 * 1 * 
000 * 1 5 

000*14 

0 00 * 1 5 
000*16 
000*1 7 
000*18 
000*19 
0.0 0*20 
0002*1 
0002*2 
000**3 
0002*4 
000**6 
000**6 
0002*7 
0002*0 
ooo, '*9 
ooo* <0 
0002 3 t 
0 O'O 2 32 
000*34 
0002 40 
0 00*35 
000*36 
0 00*3 t 
00 11 2 IM 


convikt units of aria 

A«LA= l,MHAK»Ain fttF 

x a (M A 1 ♦10239.71?) 

RK = kp 1' A / X 

Y s ( N*r.H ♦Wh* 10 ?U9. 71?) 

HSUM s ( M 1 S T P h * AH L A ) / Y 

1 I,r «r* I Tb T **i NTS**«) ° 1C I or, IRtlGf I20NF r ISTK AT t ISUR,NAMSIJU. ARt AfHSTPH 
1 , !>LV TPluCV t BE V T PM .N AGH ,NAt. t C V 4 t IORR 

IF f Ti 1ST .IN. 0 } r.0 T rr 460 _ 

ViRITfe (it)M(H) It. THY * fREC t I70*lfc«lSTRAT t lSl'BtNAfiSUBtSUB ARtHISTP* 

1 T NAr.H» u Al t lGn'P t 1 1 Yffc 

1 1 fiRMAT (6 a t A« ? ?I Of 216*2 An»Fl O.Otf 7 »5t2I4.« 1 1 » 16X* III 
IF' ( CnOl.12 . Nf- » 0 ) GO IP 450 

IF C IlTjT ,ru. o ) GO 10 460 

U t IlifL. .PI. 0 1 tfRlTE { TuUT t 12) ICT«Y*.lRLG2tl70RL2.ISTHA* 

1 t T- Wliv* % » l»£ V J1*H •€ V t life V T»»H*CV-4 • ITtfct? 

2 1 n«M,Yi (63 * A 4 » ? 1 4» 2 16 iF 6,3 *615. 4*2 1 X 1 1 1 ) 


1-9 Kile T 41 G 
1 7 ON 11 s 17‘GNt 
151 PL= 1 JTR A T 
I SUIU. r I SUH 
G « TO 1 00 


C AH F pRMF S( 1 1 1 ) . 

WHTTF trailer ricoru on intermediate substrata fiie 
HR ITt ( THT Silts) feNt’AT A » t ZFhO* Jel • t 7 ) 

RFWTNFI TNTSUU 
C AH. FAl.Uf N 

IF ( ISIO .FU. 0 ) CO TO 900 
S MX SICs 0 
NSbF.s o 
liRir.Le 0 

170 I'M = 0 

I S I Pl= o. 

1SUBL= t< 

ISlfU. s 0 
ISKCns <■ 

|,F ( 1l 1ST .NF. 0 ) HWtTF ( TOUT ♦ 19) 
f Mli PAT (2 OH I SAH'Plf SEGMENT 10/) 

HF AO Cl Sint 3) ISFG t It TRY t IRtGt I/ONF tlSTHAT t ISUfltLAT tlUNG 
l , T5i' ,TTRTN|)* (ITl 1ST tilt l- It 6) tlT YT>E 
FORVAT ( 1 Of 1 X t A4 « ? I 4 1 ?TS 1 1 X » A I ? Til 1 1 X t T2t IX » A 1 1 1 5t 1 X * let 1* “A I 
1 1 1 *i It 1 1 Xt 6 1 (It 83 til) 


TfcST FOR l»l) OF SEGMENT ll) DATA 


If f If TRY .E«. 1 

IF U RIG - I RFC 

IF(T*CINF ~ 1 70 

If UMRA1 - IS 
IMTSUb - TS'llr 

IF {IMG " I Sf G 

CONTI Ryl 

NSkt.ts t-SFCr * t 
HI A Tins 1 A T ( -■* ) 

St. A T ( 3 ) s LAI (3) 

SI ONtrl *) = LtlNG t ?) 
Si (A*it- f 3 l = LONG ( 4 ) 
(jtltJhlr 0 


.£«. LNOAIA 1 CO TO 9UC 

- I Rf CL ) 99/ 1 603 1 5 15 

- IZUMtl )997tS06t61S 
- 1 ST M ) 947 1507 »6 16 

- TS'llrl )997tM?t r >j5 

- I Sf CL 1 99 7 1 997 1 6 1 5 


f TintN 

Flint n 

HO 04 
MG 04 
MI't) 4 
Hl'|14 
F lUVf.N 
F nntN 
F I L t N 
F TlUfcN 
F imiN 

HOliS 

urus 

ULGfcN 

t T I. (if N 
F lLOfl 

HP 06 

moos 
n t ct 9 
nmiN 
F untN 

Mf'04- 
FILF.1 N 
f ILCEN 
MPD4 
FTLGfN 
^ Uff n 
FILGLM 
HlPfN 
FtLREN 
f ILCEN 
F JlfilN 

f unt'N 

f ILF-I N 
F M. (it n 

HLffN 

Ht'O 4 

hlgen 

FTLCfN 
F TIGEN 
HI GEN 
HLGEN 

HimN 

HLGtN 

MlKf.N 

F ILfif N 

FIir.fcN 

FUCtN 

Mnoa' 

mi 04 

MO 04 
HOI) 4 
HOD 11 
Hf‘!)9 
F1LG1.N 
F IIGI.N 

F JLGtN 
FTir-tN 
FI L Ot ? * 
F Ul.LM 


8g 


|§ 


p 00 I 

jz tsj 

to t | 
W O'] 
rf'O 

to 

-ll 


MFliuZl »i« tW 2 WliiU«A»J Vm 


atil« ’£ i. 




aA :- j - 


* , umtr***nXJ£r7ezXazs9s : rrtSKJWST r?I?«L 


’- 'T TT T- T 




> 

) 

> 

II 

1> 

5 

3 

5 

3 

1 

© 

© 

© 

3> 

O 

o 

Q 

© 


© 


v? 


000239 
00 07 40 
00020 1 
000202 
000205 
000200 
no 02 US 
000204) 
00 020 / 
OUOc'OK 
000209 

oun^'-o 

00 02 SI 
000252 
0C02S3 

0 002 so 

OOlVbb 
000256 


0002S/ 
non2S« 
000259 
000 260 
09 o 2f> l 
000262 
000263 
000260 
00026b 
000269 
00026/ 
000268 
000269 
00 (12/0 
000271 
0 00272 
0002/3 

OU 0274 

00027'j 
n (i 02 76 
000277 
000278 
000 2 / V 
000?>'0 
00 020 1 
000202 
000,203 
(1 0 0,2 04 
ooo2rb 
00020 6 
00020 / 
00'02«8 
000269 
000200 
r» 0 1 ) ,;■> 1 
00 o 202 

000293 
000294 
O'U 029b 
000296 
Ob 629/ 
0 0 6 290 


600 


6 l 0 


620 


ntlFcK DAT* ENTRIES ON SANK). E SEGMENT it) DATA CAKP. 

CUMvFHT LATITUDE M|N. TO DEGREES AND ADD 10 UTITUDE DEGREES, 
(it AT 3 SI AT (2) t 3!AT(3)/60.0 
IF f r;L AT .It. SLA 1 MX ) Re 10 610 
C A LL I RS PIT S {5*4) 

rr f I aT( !) -Fii« fliS ) CJl ATs — CfLAT 

CONVERT tUM'GttllOE KlH. TO DEGREES AND ADD TO LONGITUDE OE<»«tES 
oi om;= slong(?j ♦ sl<jnu(5V/6o.o 
IF C f’J DUG .If . 1 H't) • 0 ) CD TO 620 

C ^rOt^lhCAT lVt (NtSIfRN) LONGITUDES SUBTRACT HAG I T'UDE FROM 360, 
IF ( t t'l-’U < 1 ) .tO. HM ) 360.0 • OLOS'G 

CONVERT l A T t T WDt AND LONGITUDE TO RADIANS 
fit AT- |)l AUDI Cl OH 
m liNC= NLObG »(‘LG f OK 

CKFrK SF*'* I HG / H 1 N T t R KFtFAT INOICATUR. 

I'l f I 5 W ,NI . JI'S .AND. iSW .ME. 1HK ) CALI EHfiMIS (J»I0) 
IKtlSFC .LH. 0) ITttlNO = 0 


625 

b?1 


630 

635 


640 

650 


80 O 


BIO 


«20 


If tTISf O . 1 - 0 , onto TCJ 600 
IK T I RIND .Ft). 0 JGO in 6b0 
ICT - 0 
0) 625 1=1*6 

IF (1111*1(1) .LO. OTGCl TO 625 

It T = ici ♦ 1 

CONTINuf 

II (ICT ,NF . o)t;o TO 6?7 
CALL FH KM! SI it in) 

»(i 6 4 0 1=1 tTC T 

on 6 in J = l » 2o0'0 

IF { J .fc-n. Ituciroo TO 63b 

IF (TH Idfl) .ED. XlRPRT (J))GO TO 640 

com I Ml) F 

■liTRP-kl ( Tl.nci ) = ITLTbT(T) 
ili;ri = il un + 1 
ttMTD'ur 
GO TU 600 

iTMtMJLTld = tSEti 
It ur = ILOC ♦ l 

IKILOc .IE. ?000 .AND. ILOCl .1C. 20001GO TO 800 
WRITE ( t Wit 1 8) If DC * ILOC t 
GO TU tO 00 


FTLCEN 
t I t r.EN 
Ml REM 
F Tt.i' tM 
FTLCEN 
F 7 1 CLN 
F 1LGEN 
,F TLCtN 
f 1 LCF.N 

filcen 

FTLCEN 

FILCtN 

FI-LRLW 


F H CLN 


IV ALL ^8 L GFlf NT * SA MRI E^'AlA 15 COOP, WHITE ONE RECORD OF SEGMENT 
J NT (. RHFtJ I A T f FTLF. 

IFCFATaI .EM. ONStCR = N5t.GR ♦ 1 

fUllfjT I'U. OF 5+ GHENT S IN THIS SUBSTRATUM. 

IF ( lS’Ub .ML. lbOliL ) GO Tu 810 
IF ( TsTRAT .NF. ISTHl ) C.n TO 610 
It { T/NNF . Nt ♦ 1/DNf.t > bO TO 810 
IF f ThF (I .IL. THFCt ) DO TO 820 

tfl v, JiUi'dRAIW. AD. JUS I INAS+C AND RLINtUALI7L CnUNIFHS. 

iHXSECs MA X 6 ( l*1XStt’-*NSFb) 

NSEF.= 0 

l l-’t CL= THF G . 

17HM1 I = 1 7 ON! 

IS1RL= ISTrAT 
tS»MH.= Tb'IH 
nsir.s iMt; 4 1 


F M CtN 
F TL6EN 
F TLCEN 
F TLGLN 
F UCLN 
mlgfn 
F It Ct'4 
FTLCEN 
F U GEN 
i 1 1.CEN 
F M of N 
F U r. ‘ M 
FTLt-EN 

MLGI.M 
F T L r '\. N 
FUCLN 
Ft.LF.tN 
F TLCEN 
FILGEN 

F 1 1 G F N 
F U.Gt N 

FMGfN 
FILGFN 
F I L G t N 
FILCtN 
F U.CtN 

ftlgf.n 

F tLGfN 
F 1 L C l N 
FILCtN 
F TLCEN 
FTLtiFN 
tit’ll? 
f H«rN 

FTLCEN 

itlcen 

f TLCtN 
MLCfN 
I UCEN 
F UCEN 
filrfn 
MLC tN 
F H Gt N 
F TlGF.N 
F MG 1 N 
F ILGLM 




i 


in 

1 • 


t s 

fu OO 
TO 

a 59 
* 1 ^ 
N) I 
U> O' 

m o 

N> j 

- J I 


3! 


I 

5*J 

G 

1 

o 

o 


ar 




»>{ /i'.-.- JJc-L iwit iAi-- i /vsy.WLi-* i , V J -I ifiii <■' fim 


2 . .vRuu. itv. < r~ 2 r-’: mUwJ 


■r. w 4 «cA^ai 






OX) « 29 9 

non 400 
000401 
000302 
O'O o vn 4 
000400 

011040 b 

000 4(16 

000407 
O'O n 4 00 

oon 409 

00041 0 
0U03! 1 
000 ‘1 i 
0 O'O 4 1 4 
009 4 1 0 
0 on 5 1 b 
000419 
04)041 7 
000 41 B 
O’O 0 ,4 1 V 
000420 
00 0 321 
0 004.22 
0U0423 
000 4 20 
ouo 425 
009 529 
nu o 4, '/ 
00 0 42!) 
no 0 429 
Ouo 440 
000341 
000332 
000433 
000334 
non 33b 
000439 
000437 
00(1 43B 
01)0439 
00 03 O'O 
000301 
009302 
0 O'O 4.9 4 
00040 <1 
000403 

01H>:4«6 

000307 
000 3 0'B 
000309 
0 0 0 4*3 0 
00043 1 
(19 0 432 

00 0333 

000430 
00033b 
000339 
non 43 / 


ISf.r.l = IKES n, ’ l)q 

IF ( F ft T At .EG. 0 ) . „ FT'Lf.tV 

t WHITE (TwTSEti) 1C T'H Y * ISfcG 1 1 WE G » I ZONE » ISITEAI ? I SUB t ULAT *0LONG FILCtN 

1 tlSfc, iTRi'JO* (TiLISTf 11 t ! = !»<>) MLCEN 

040 IF f IlTSt .TlG. 0 ) F,U TO SO 0 FTLOtN 

tf j 1 is? .’IF. 0 , Hr ifiT OUT CAH& IMAGES F OH SAMPLE SEGMENT OAT A.F T l GIN 
WRITE ( 1 til IT *1 3) ISFG.Ir T9T » 1-PtGf T ZPNF f IS THAT * ISUHtL AT ♦ t.UNG ♦ M.GEN 

1 t TSl' t'T IRI'M)* ( ITT 1ST (11 ? t = l«9) ♦XTYPt MLGFN 

IJ FORMAT (IX »l 9* 1 X t AU»2 1 9,21b* lX»Al«l2tlX*j2» IX * Al ♦ Tit IX» I2t 1X» A1 HLPEN 

1 ♦ 1 X * 1 1 » 1 X t *> I9» UX » 1 1 ) MLGfcH 

GO' TO sO(l HLGEN 

- FluGfcN 

r KfiJjF TWA It tR RECORD ON TNTE9MF0IATE SEGMENT FILE Flir-EN 

<»00 WHITE (Il.TS'Fi;) E NO AT A? t Z'FHP't Is 1 » 1 b) MlfVfcN 

HI w I NO Tt.TSKi EUr.FN 

JMXSJ r.s MAXO f 1M*SEG*N5F0) E 11 C-F N 

IF f H1XSFU 1 .IF. MXfvEr. V GO TO 990 F U l.f H 

„ R 1 T L ( U'l U T 1 e 3 1 I H X S FO , M X 5 E U EH r-E N 

?4 F’HHFiaT (7/uOih MAX. NU. f)F SEGMENTS IN ANT SUUSTRaTA siv etluem 

I t 1 9)1 EX CF £01 NO MXSfG =15) HLCKN 

tooo STOP EIi.nEN 

900 1HTISFG .10. OlGR TO 999 MLGr.M 

on 99<i T = 1 tlf 'CI ' Mir-E'N 

ISlnMf r.IMM-NKn ETlGtN 

DM 993 J=1,T| ot ETLGlN 

IFl t IHaTH(J) .t'E. IRLr.PPJGO TO 998 E Uf-EN 

99b C'lwTlMllF f 1 L G F N 

WHITT 7 1 MOT ,?U 1 1 SEGPH MlGEM 

20 I Mh’H AT ( //2 /El TRAINING PRIORI TY SEGMENT tl<i*A(!tW IS EITHER NUT A THAT HOLM 

I I Ml HI. S'MH'ENl OH NON EX 1ST ANT) FUME 9 

IKRH = TERR + 1 MLGfcN 

FATAL = 1 EUMEN 

996 CMNTINWI .. EILGEN 

1,(1 TO 999 n<T ,a 

99/ 1 A 1AL = 1 MPt):! 

I F HW = I E HR * 1 HP 00 

WH'lTEf H'UT tl?b) lHLGt IEONF »T$THAT* 1SUR*ISEG UPDO 

2S F'MHHaTi IHOiObH SAMHI.E SfCMENI It) CAR'D IS OUT OF ORDER. TO = » HP|)'< 

1219,415) KPtiq 

999 „I?ITE ( T OUT » 1 7) NSHC«NSSGfMSFGCfNCHCt)»NCRtCD»NSUUE«»NSEGR» ML PE N 

KtnifiP* JFHP ML GEN 

17 FORMAT CV/lX,Mf 4*11 FURS THAT A wiSiniMCAl OAT A CARDS READ MLGEN 

1 1 1 X , i{ 0 1 3 9H SLI1.1S THAT A STATISTICAL DA 1 A CARDS HEAD MlGt.fi 

?. / 1 X * 1 0 , 3 5H SAMPLE SEGMENT !u DAT A CARDS READ ElLGEN 

?/ IX ? I 0 . 3 1 H lWWH C/il.LMJFH DATA CARDS HEAD ElLGEN 

?/ix*l«,47P CfUIP CA't ENHFH t Rkt'K DATA CARDS HEAD MLGE.N 

3 / \ x , I u, O'jli SHIlS I R7, T A I N | F K M t P I A I F E II E hFCPHHS WPIU'EM ElLGEN 

a / 1 A , l u , 0 4II st' i,i' E N 1 1 Ml F RMEI) I A IE E 11 h HFCMHOS WRITTFN - IHI'-IN 

2/1X,1«,09h (.HUP CA'IEkDfK 1N1FHME0IAU FILE HFLPHDS WRITTEN F ILMEN 

5 ///lX’lOt? AM InRUT FHHtiRS OMftTcL') F TLGF.N 


IF ( I A T A I .10, 
WHITE | lull 1 * 2 A) 
FORMAT f//4S(i 


HETUHH 


1 F Hli M A T f / / 46 D FAIAL LRK'tlrt IN INPUT. JMI) AMUR 1 F D) 

1» F FIRM A 1 ( //OO’H PAX Mu OF TRAINING SEGMtHlS IS 2000 . iloc 
Id = » 1 3 1 
SlUP 



r ?ZV. ! i7*^ K 


FIT GROG Alt I t 76040 I t 67416 


00000 l 
000002 
oo'nooi 

000004 
000005 
000006 
OOOOOf 
0 0 0 0 0 H 

no oonv 
none ! o 
aoooi l 
o u o o 1 2 
0000 1 3 
no no 1 4 

0 000 ! 5 
001101 «> 

00001 1 

0 000 1 o 

00001 0 
000020 
<1 0 0 0 ? 1 
000022 
000023 
0 00 020 
0 00'02'j 
000026 
0 u I) fj 2 7 
00002!! 
00 0;) 2 9 
0 0 (to VO 
00 00 Vi 
no no vj 
no n o Vi 
ooo o v« 
00 00 VI) 
0 0 0-OV6 
OOOO 1 7 

oonnvo 

0 00(1 V9 

oo no no 
ou oo n t 
000002 
oooj) <(3 
no oo on 
0 o n o n 3 
000006 
000007 
oooo no 

0 0(10 0 4 
0000''U 

0 00 0 s l 
000052 
OOOO S3 
()0(1(1 SO 
OOOdSb 
0 0 0 OS 6 
0 CHIOS 7 
(10 0 (ISO 


SUBROUTINE G.R0CAL ( IGRIDt JGKlDt INDEX tF I tF Jt If H) OFUCAl. 

this routine computes The best index vatue for a given grid pair grdoai 

OF ruflDlNAIf S I« THE (;LRBAU S T L Rfc DtiK A P rtT'C 1'MW X MATRIX GRUGAL 

COMM'Jt.' /CONST/ . * 

1PI T Mt ( I ok , 6L aTmx.FNOaT A 1 2F R'Ot iNPf TUU I « IN 1 SUK » I N ISFG 1 1ST (IF t EONS I 

JJ JTHF .IgME ,tRS l()F *LHC«F ti KSMF » I h iN.KXSt 0 1 IC At IN* ICWEt ARE ACF GOnST 

St TSK 1 , I SW2t T&RDTR st ; uR 

I W| r *»f If 7FKT1 EFUST 

COMMON /DIR At f DTK AC 

| IGUTN f 2 r *2l » II f t ( 50'U) . I) 1 R AG 

0 IMF NS (UN IRTAIF(llfft), ipGUNt) ( 2* B) t If I Ctt) t IbT AT (6i|) t IliOUNt 16) GP'Ot AL 

fcWUf V ALf NFEt 1ST A I E- 1 1 » 1 ) » 1ST A1 (I) ) ♦ ( 1 WOUND ( 1 1 1 ) » Idl'DNU)) OK OF At 

DATA T sT AT / 1 » 3 » 2 t / » B T «V»n» 6‘* 3t 1 t Jf’StR? 7t Of 6f Vt 1 ?4»*it?t 7t 6»71tH't V » n»7(,l-|)C AL 

_ . * . . .. * _ _ -» r- * . r> f t, ** f _ tt _ C _ i. - 1 _ - t. 3iJ;nf a 1 


if t f 2 t «»Sf 7,6 f V»n » 1 »■«»?■* 7(5.6* l»E»3«0 t ?,7i1 .6,5.6* T* 2t Of 1 17, ft. i.2bt-ur At. 


2.S,6,(|/ 

DA 1 A I |i( HIM / 1 .0 1 1 f 1 tOf | fit I t- 1 
CALL Oo'VNID'f J'GlUD) 

JKliiAV = Jf-HID 

IFUWc.( ir.WTD) .LT. 0>GO TO 10 
INDIA = iRtl.CTGPID) 

5 FfF'MMlIi 

0 t - F,1 -.TOR ID 
X = M - I GRID 
IF (Y .Ml. 0. .DR. X . NE, 0.)GO TO IS 


IiO’t«li»hOi-lil**!/ 


I S I A = 1 
GO TO 5 n 

is i f t y • f d 


. 1). 

)X = X 

♦ .moo oooi 



Y/X 






. 0. 

.AND. 

Y .liF. 0. 

jr.o 
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IlfKi?, ipl/M.GnOOt ,HSHC,hSSC.NSfbC»T4SUbP.f)5L0P«THSIDI , NKCKF . NSSHF . M APS 
? I SST . I s7 A T 1 1 kF (I t . I ZONFL * 151 WL, I SUHL » I Sk PL *(>'F tP , J MXSCG *NTll ST , M APS 

3UI AnoF . PuOIj? . I ATAL .TL’AYS(5)tII'SFti( Mo) I 1 

J , JrlO | ( j. ) . I u’,\ J ( (O , 1 (H f (8) . 1 YK1 (0) i T rtPl (0) . IDA 1 (5) M'ln 

r'ltoti: umuu .onourf.itfAnSF .fatal m aus 

c n m f 1 o |'4 / 1 f-- H u j / I ^ : P ^ T 

1-HS'tIi1-.sli»AK»«T$TP*,.rtVl'Ph.CVtM'.DrVTPP.QLA|.blO*/fc»SLATl*J.5lUNfc-(iWf'HI1 
?.mamSHh( 2 ) ♦ Tt r«Y» I t TWy 2 . iFASL. lt IS 1 » I TSFs. I SHF ♦ I S SU • I S 1 1 > t I SO' • I f fit 


3|St r, f ft.) G * 1 1 1-S'fP A-T » T.Stll}. IS«t . 1 T VPL . 1 1 Yf't ? . I‘*Ft A * T SF t»Pf Ttl'MrP t 

m /Ol'LP.ISTHf t!Ul'i./.LAt Ml.LiPGCiJ.I . MOtM . t U A ( 8 ) ,C Vh, IPKP , 


«,rjFL T ><f ( /II . I !’ I U T P . t .,1 USD, 1 ? A I on . •/ ARK . ‘.<L t IIL TSH A) »NF Kf. J »NChL LP . 
Mt K«iP . J F A Yb I (‘ H ) .Of 1V.MI.J). IPD< 11.1 S-'.SP 1 , 1 !>*S {»- ) • I«U5 1 0 ) . I YK5 1 « ) 


6M( Klip . I r A Y b 1 ( » ) .OF I HIC'Di I* L>< J J t i mi" l i 
(jniJULi PHfCtSlOf «!.tkh 
Hi A| t.Al'SUH. I-nwr.lCl HY2 
t OMPO ^ /GALfJ.O/ 

J 1 f Iff t/c(f ) • t (’Kf Ij5 (fl J . l'F Hpl M (S J » I FHF’t 3 t*t) 

COMMON /LPaTA/ 

1Vi..tlAtA(0) . S t’ |) A I A f 0 ) 

IHIFPIiJ mV’DAT A.5..PAIA 

Kf A! tr.TKYl 


U T Mi HP J Fir) !j IPHDW C 21 i CVHpHtP). SMIit>Hf2) 

DATA sTOHOS. C'+HOKt SHHOR / flMSFGKf JltFMT. ?HCP0P» OHMl+JD 
1 ./l-HSil’ 1 ..(HlilsT /.trvi » IO>VT'P.im31fV«nrV1 .M’Df VTPH.OHHIS IPW/ 
DATA IxJ’AHtlSltJ'A/rtMXI'AP.SHSir.MA/ 


KFMMP TSIl)F 
Hi K T 'if* I ChF 
HFhTDI) lOl'F 

K K 1 T F HE ApEFi RFtOHPS 
NF II L= ' KS1PF - i 


WH1TF ( l.S IPi } SI CHOP , ICASt.ITSFP.t2TK0.lsl . 1 51 
NF II L= I HFr-F - 0 

Ml'ITL (ICKi) CWMOH.ICASt.IHIN, ( HP . I* 1 »Nf ILL ) 

LKSI’h = MX5F G +10 

NF 11 L ~ I ns or - >1 

Hum { I SHi ) S’OiPH. IC AS t .tiXSf G» ( 7tHO, 1= 5 ,HF ILL ) 
TM ! I. VI J 7h CPUN'TI'f/n 


N»IU { I S H i ) 

T 1/ T t 1 A t I 7 h. 
ir li’YP :• n 
F I A I > S T ? 4 0 
NSIF.s -.VSFti 
ICKl’H = 0 
| F HP PH s 0 

(HI r:p s 0 

I/U'T = 0 
IS I HP = 0 


. 





IGWP1 = 


Lunp TO READ THE SUBSTRATA INTEHMtOI ATE Flit 
HE AO { IMTRUO) TCTkYf 1HFG< 1 ZONE ? IS THAT t ISUB.NAOSUB t AREA.HISTPH 
1 T nf,ViPh»CV,OEVTPH«NAr.PtNAL»CV'l» IGSP 


TIFT Hitt tk() OF DATA CM SUFTSTKATA 
COHTltiyF 


TNltHOFUtAtE TTlE 


IF f TcTHY .NE. EMB'ATA > GO TU 20b 
IFKPlIf = 1 

JF ( 1 1 I S T .NK. 0 } WKTlF ( | OUT * t I ) 

FOktfAT ( / / u<i H FND ftF Da! A ON St'bSTPAlA INlFKHtDlUf Flit) 


IF f f'F AT REA'OY OF TFCTED On SEGMENT INTERPLM AIT FItt» 

THKJ TfHKINATE OUTPUT Fitts AND FxTT. 

MiF'fPiiTS'E CIINUrmt Hr Al} I NU hf.MAINuTh OF SEGMENT INTERMEDIATE 
F II t • 

IT t IcTKY^ .Ft). FNOATA ) GO 10 BOO 
IFdliVpt „hO. 0)00 TO loo 
IF ( 1 LPp? . hF. i>)WJ TO 100 
WP I U. f J PU T * 1 6 ) I PE F,P * 1 7UNP * I ST KP 
hUlll T 1 1 'VJ T -» 1 T 1 
100 GO TO l '! Q 


20b iMTLKpP .NT. OHIO TO Hob 

HT Al>{ I fALTN) ICTFY 1 1 IHP Gl ♦ IZflNI » TSTRA 1 * I-SUCl * l Tl> AYR (I > » Isl»d) 
1 , f u F LI hT IT ) * 1 = l • A) » I FI. NTL« 1 St 050 1 ( I'D AYS H 1 3 » I=! •») * 

2 CM.UU ] ( M » T s t » I ) • t PL?) I 1 » I SGSOl 
20b iktcTfvi . t u . f NiifliAibn T o «;U 
IKT:vf<, - IF) ft i ) 2 1 1 * 20/, 212 
207 |M 1 /f'.N'F - I/HM )?\ ! ,? 0 rt»?l 2 
20 B IMTSTfM - ISTPAJ )Pl J 
209 IF C T SU|l - IRU'UT 21 1 , 250,212 
250 If MM s 0 


irWPl'H r 0 

(if> To 21 b 
2t2 ICHf’iT a 0 
GO TO 2li 
21 l IFW’U = l 
21 J IGHPPK = I 


21b iRbim = o 

IF (IMG .Mfc. IPFLPJCO TO 25b 


IF(T/n.|F .NT. I70M)')"-O TO 25b 
IKTSTuAT .FQ. ToTuPJr.U TO 200 
255 I T ( 1 (i F > ■ 1 .TO. OH.O TO 257 
IF C RUM? .I.F , 0 1 GO TO 25/ 

),U 1 TL C I OUT , 1 h) Il»t OP. 17UMF* IS1RP 
Ml I TT 1 1 OUT « 1 9 ) 


ir.KF* 1 s 0 

IP! >.F s ipi r. 
!/ti'F 3 1 7 IP'E 
JSV>r = rum 
h;mv = o 

I F ( T G i p .TU. 
IUK'.pPK .of; 
rm 2 oi T = i,i) 

i pur m { n = o 

! i in . ■ ( I ) = o 

T J o' 


o 

ipi r. 

I7M’T. 

T R 1 F A T 
0 

. 1 1 J . ?)UitlPT = 1 
‘ i< .TIE. 0 ) 0.0 To ? 9 ? 


NODS 
LUMP 
LUMP 
LUMP 
LUMP 
LUMP 
l IMP 
LIMP 
LIMP 
LIMF’ 

LIMP 
LUMP 
L imp 
LIMP 
LI MP 
11 MP 
LI MP 
LOUP 
LUMP 
<1005 

peps 

hOpR- 

KOyS 

mpdR 

LIMF’ 

hf'i>5 

L'MP 

LI'UP 

LIMP 

T-.rus 

noiiS 

LIMP 

Ll'TtP • 
LUMP 
LUMP 
Ll UP 
LUMP 

MTM)R 
LUMP 
UPpR 
LI M.p 
Li'riP 
LUMP 
lump 
lump 

M’ljS 
MOOR 
MOR 
UfUlS- 
)’G l)R 
tlf’OS 
LIMP 
1 1 1 F ° 

l I -Ml’ 

MOOR 

Mt'liR 

Ml'pR 

filpR 

F-.r 


*0 H 

IU t» 
TO £ 

« “I 

TV I 
O' 
Ln o 

r 1 ! 




a 

•3 






;;^^>%$9I|CIPPPBE 




«•» 


T 


8 

ooom 



ON ?0 3 1 = 1,5 



OQOI20 



ItKI’rW(l) = 0 



0'00l?l 



iriwptsfi) = o 



no oi?? 


2«3 

CONTI NUF 


i 

00 0 1 ? i 



CA'LI C Al. Kpw f ID’AYStOFLTWF » IiPLNTE , IPRFOW, ICHPEW) 

LUMP 


nuoi?o 



CA'H Frt! E R R C I PI A v s 1 , PE 1 W F 1 , I'PLN T 1 , TPREDS . ICRPtS) 

LUMP 


0 0 0 1 ?b 


2*2 

X'UlJ = H I STPWF'I 1.0 ♦ OF VTPW ) /l 00. 0 

LUMP 

? 

0 0 0 1 ' ‘) 



S T h ” A = Hl!iTpKt-V<n/10n.O 

MPl) t 


no n j ? y 



I gut = n 

L'’MP 


non 1 ?u 



in-:=vi 

LUMP 

> 

00 01 ?v 



c A LI !'•( T All l KSF.tO * XU AN , SM»M'A * X T 1 1 OP 1 « 1 1 K) 

LUMP 


non no 



lMUR.rtJ.01 Gtil TO ?bO 

LUMP 


oooni 



rMTLR.ru. 1) r.w I M 2 M S 

LUr.P 

> 

noon? 



IF ( tl P.t U.2) fill 10 Pbn 

LUMP 

n 

nom si 



hK'ITt f t ('LIT ,900) I RE K, T (fONF , I STK'A T , ISUH 

LUMP 


ooono 


900 

FN..VAT ( ll!n,.T,i 'HI Oly‘1, Ti,7H 20NF ,13, Pl< STRATA ,Io,f>H SUSS «iM» 

LUMP 


000 ( 3b 



I/,.|Ki, I-! T A 1 M'NCirUN FOMCf) NUT CUNVFkr.E .UN A SUlU’TiONl 

t'f'IiT 


no n j ‘‘it. 



TI'I.SbsfilUTPW 

l UMP 


0'00137 



OR TO ?hb 

LUMP 

'■) 

ooo no 


205 

1 PUN 1 2=1 DP VTP 

LUMP 


oon i T9 



PVNTM = I'/FVTPW 

MP03 


ouo t no 



IPHNT 3= I MI STP 

LUMP- 

) 

0 U (l 1 fl l 1 



■P t,; MTb = K I S T Pw 

1 1 ! u fl 


oon in? 



it’ rum "ah 

LUMP 


0 001/13 



LU' Tu ?Sb 

LUMP 

A 

►* 

non inn 


259 

I"KtJl ! = Toll. HA 

MU 15 t 


nuot«5 



1 I'll II T ?r t G V 1 

LUMP 


o on t <i'tj 



IPNMTT-TIiITSTP 

LUMP 

> 

> 

0 (K) t .'1 7 



PHt;TM r eV(l) 

IlCLU 

IT 

noon fl 



f'l-'NTb=liTS TPW 

LUMP 

s 

non i tt 9 


255 

H R 1 TL f I HUT , 9 1;5) TH'FG, 1 7UNt , IS TRaT , ISL’O, IPk’U 1 , TPRNT2, IPRNT 3 f 

LUMP 

b 

n on i so 



1 pltti T M •'pl.Nl b 

LUMP 


Onoivi 


90 b 

f-tilt-AT f IHO,n»( KF&TON, 1 3, &H 7UNt ,T3,8H STRATA SUHS »!«,/♦ 

LUMP • 


no n i s i 



\S>?;h FilA M'l ICTION HLStT ,AA,3JH VAlUF SJNCF N0T PfcTwftN 0 ANH j. 

fLMHP 

Y 

O O'O l‘M 

/ 


?/,V»* , AO , MM OR ,Afc,17H H'fl V t 8*0 VAlH'fcS ,2F«.3) 

4 


non i' s a 


27.0 

TT’nss = xI * lofi. 

LUO” 


000155 


27.S 

IF f f sl li .1 U. 0 1 00 TO 220 

LUMP 

> 

oon i r .b 



IJO ?in T = 1,NS'FG 

LUMP 


0 0 0 1 s / 



IipSt l. f T 1 = 0 

LUl-in 


non i*.« 


?in 

CF'NTT f.'iijl 

LUMP 

5 

nnnisv 



1(11.0= 0 

LUMP 


oon h.o 


c 


lump 

8 

oon ii. i 


c 

IT- f Tl At HF ANY OtTFCTtO ON SFGHtNT INTEhFUUTt FULFt 

LUMP 

j 

no o i 7,2 


c 

Thin HR | T t II I ST OR ICAt F Htt ANO CONTINUE HEAUlNO SUHSTNATA 

LUMP 


000 17,3 


c 

TNTlMlf OT ATE M'LF. 

LUMP 


OO n i t,i t 


?20 

IF ( TfTHY? .Fi,’. FhOATA J GO TO 050 

LUMP 

> 

o (J 0 1 (. b 


C 

IF !;f A'llSF . ilF. 0. SAf HEA'Ol'NO SE6 M LN I lNFETiPEDIATC Fllfc 

LUMP 


non 17.0 


?90 

IF ( "t A Li SI .Ml . 0 ) • (VP TO 410 

L>'MP 


non i f.7 


C 


LUMP' 

* 

non IMS 


c 

LUMP (0 RfcAO THE SFU u tNT INTtHHtDIATE F HI E . 

LUMP 


r.on w.9 


300 

i r.i r,H= T Si ijR ♦ t 

LUMP 


non i 70 



r,M,i> i j'liri c) TCt 1 Sh(>, Il'F 02 » I Z'Ot.f 2 , IS TR A?, I SOB?, OLA T , CM:ONG 

LUMP 


non i 7 1 



1 , IS>.,IIWINO, ( ITT iS 1 (I) ,1 = 1 ,h) 

LUMP 

■ 

oon 17? 


t 


LUMP 

8 

0001/3 


c 

TEST FOR *% t»r OATA UN St GnFNT IN TEHNEUT ATE FILF. 

LIMP 


on o | v <i 


30 5 

CONTI "ill 

LUMP 


non i7b 


c 


LUMP 


non i To 



IF I ilcTHY? . N E . FRO AT A ) GO TO 305 

LUMP 


nun t 7/ 


mo 

IF •( HIST . NF . U ) WMT-TF ruHiT,V2) 

LUMP 


nun i /» 


i? 

fl'RM A T (//0?M 1 NO m 1) A 1 A 01. src.NtN! IN | Fh "tr i A 1 F FILE) 

LUMP 





♦MEW 
♦Nt W 

♦ NEW 

♦ Nth' 

♦♦-2 
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no o 1 79 

QUO l no 

no ojiri 
on! niP2 
o on if 5 

Od'll'-Ij 

Oun ins 
OHO t me * 
no n i n 7 
non i no 
otinifl? 

•ooo too 
non i<»i 
n an i o 2 

oodiinj 

n o n t o u 
non 1 ns 
Pont oi» 
non in/ 
non i no 
non t oo 
on n ,*0 0 
ooo 20 t 
ooo.ina 
0 0'020 3 
on n ,’n « 
00 «2fib 
OiK><?n6 

no n<.'p/ 
000200 
000209 
non;-! o 
O'OOtM 1 

n o n£ i K 
0 0 o ,} t 3 
no 021 « 
O'0n,.T) 
00021 6 
00021 7 
00 IV It) 
0 0 0210 
00 0220 
000221 
000222 
000223 

0 On 2 20 
0 0 r.2 2 b 
O002?h 
00 02 2 7 
000220 
000229 
00 02 30 
0 un 2 3 1 
0 0 "2 12 
0 O'O 213 
0 Of 2 1 0 
0 0 0 2 1 '•> 
0l)n2l(' 
00(12 1 7 
OOOf* 10 


IF 

GO 


IF fflF At HF AOY OrtFCTt'R ON SWbSTWATA I NT F mF 0 1 Alt FILE I 
THFn TF H ‘i 1 >J(A T l OUTPUT FILES AND EXIT. 

OTWt-PKTSF WU f« If: ON coup WjMUOrt FILE AND HISTORICAL HUE. 
f TeT'KY .ED. EMUATa ) 00 TO 800 

TU aLO 


IP'S 


TlO IF 


RIF AP 3 F = 1 

IE fOF At HEADY UlTFCTEP OH bUltS IP AT A INTERMEDIATE FlLLf 
THF n HE Ah WfcUAtNOtP nF SF(,MfcN| JNT'F RMLPl ATE FILE WITHOUT 
Mil ! T 1 hF, I’N OH f PUT F II 1 S . 

( T C 1 NY ,E 0 . L n U'A T A 1 t ,0 TO 410 


31 ? 

3t<» 

310 


IF 

IT- 

I'F 

IF 


SEGMENT Of LONG To THE CURRENT SUBSTRATA 
(1 30 ♦ 3 1 2 » « U'O 
) 03 0, 51 a T 'T O O 

1 030. 3 1 t> .400 

o 3 0 1 1 ! '' » u 0 0 

l),!t C'l'KlAl M | SEbKlNl IS IN THE T RA INI NG 


318 


<DS 


JtlO 


DOFs I I'E CUHHU'T 
( TPM, - I'N't R2 ) 

( 1/flNF - I/MJ.F2 
( ISTH.IT - 1ST HA 2 
f TsJ'B - l IHW12 )• 

Y>F. H0H S'tF !> 

I h i > J r A T 0 H LIST. 

IF ( T tFpT'H .NT . 0) 00 TO 
IF ( TbW.Ml. l*'bl ISrJfsT 
IF ( TSN.F o. t‘irf) ! S ,Ut ~ o 

if CIbW|i.iL0.1 . AfvD.luArSl f I) .tlU.UJ DO' TD *15 
I? (TbWti.fcD.f . A/»P. It)AY5( 1 ) .t 11.0) t»0 TO (ilb 
I,SS!!0=lSSI!bl 1 
fib) l.= t.VI G t 1 
lOStOfObf Gt= IS1G 
CALI GkHM M'Kt) 

I F t T t f ). . ,; t . *t ) RIJ TO TOO 


LUMP 
LUMP 
LUMP 
LUMP 
LUMP 
L UMP 
LUMP 
LUMP 
LUMP 
l HMP 
LUMP 
Lt'M» 

kr eon plump 

E I IMP 


e WKTTf CUIHFnT StPMFNT on SFG'-’ENT id file 

rt p 1 T E f I s I Pf ) I a p Y 1 1 Ht F. t T / nti F , I STRAT . TSUP » ISF G»ITkIND» MTLISTt T) t 
' 11 = l *b )' t PL A T * (jL tslNO't I'NOFX* ISAM 

C *'»'*** 

IF ( M 1ST .,f«. 2 J 

1 WO 1 Tt ( TOUT 1 2 1 ) lETPYf IKE fit UONF » 1'ST'R.AT . ISUB» ISFG. I TMINO, (It'Ll 5T 1 IJ 

2, T = T ,(,) .Ut A 1 f'lLPNF,* INDF X* IS*M 

*1 FORMAT ( IMP ♦) /« G 1 1» M -t N T iOFXLE/t 

19U IfTt-Y s*A'‘»OH I PER s t I<lt 10H 170F-L = i I n * 

2 1 101 IS I PA I = , 

HS.'Ui I sut =»Tb«9H TbFti :-ISl|fl 1TP1N0 **12/ 

21 |H iTLTSf - . A I S/9h ut at = fF 1 M , 6 » 1 OH RLONP =*Eia.F,» 

31PH 1 'tUiX *t 1S»9|1 lr,"H =.I2) 

Nit ST I, F s NHSIpF ♦ 1 
Rf'ADSFs 0. 

GH TO 3 P'0 


Lt UP 

L'lMP 

Llti" 

l I 'HP 

I'UKP 

t l"MP 

LUMP 

LUMP- 

LUMP 

LUMP 

LUMP 

LUMP 

lump 

MOD'S 

MO DO 

lump 

LUmP 
nr 03 
(1003 * 
U'KP 
LUMP 
Mf>!)3 
MUD 3 


noo 


13 


wro 3 

M«t )3 

mod t 

LUMP 

LUMP 

LUMP 

LUMP 

LUMP 

LUMP- 

LUMP 

'LUMP 


TitrausT silnly hlt RP l n SUP'S Tk a t a oata and segment data. 

WRITE ( TOUT i 1 3) I SF&, If T RY? , I HE'G? * 1 ZONE 2 * IS I P A2 * t SUU2 
1 t T LT |i Y » THE G * 1 /ONE , J S I PA T f T SD« 

r OKMA? f //S 3 H IMF FULL OH TNG StGMf NT DATA N A b 0 P 0 P P F U C"Jt TP OISAKK 

1 lil'ilf |.| NT -IT M THE S HI)? 1 PAT A M 1 A , / 1 OH SF Gt’E N I f l‘it t 1 *t GUIJNTKYLUMP 

2 iAt|*P|| ni II I t'JU • I Ot /II / 1 1 N t > 1 'J * I O'H f. IP A 1 U M t I • I 1H bUcJ S 1 '( A I Ul'L Ut P 

3 . lSi 1 v" EFt)'' SEN. -it NT DATA/1 NX .1111 
0 , /> t 7'0Nl i 1 0 t 1 l)H STRATUM. |b»l 51* 

•5 I RATA DATA) 

(,n TO 50 U 


t,OLi*t l *• t tAa.vn ptr,int,»i-j lump 
SU uSTPAlUM.tWlH FROM SUDOLUKP 

LUMP 


ti.tn 

t'l 


K(< r It f TOUT* l'l) I M ti» If 1 RY 2 « TI»Ft>?» I 2 UNI 2 » 1 STN o 2 1 ! SttH 2 
TPiiPAt (//bill the M‘U UgING oFG u LNt DATA MS fliUPI L» nt€*MSF II 


LUMP 
I UUP 

lump 
l UttP 


).«> 


*NE.W 
Y NEW 

♦ NtW 

♦ *-2 


ft) 00 

o “ 

iD- 
DJ I 
O' 

— J o 

DJ 


-J 

I 


P3 

c 


o 

o 




' W t r j iti H W I.) LEU) .’l: c > I i iy . N G >1 1* : i. -• i i i ; 




_*■■ Ar *. it ^ 


.V : rrfVf A Itii r it I 






hTT-,;- ;• v.: . ' ..’.? :’•• ' '“'r^v R? f?Z ■-■ '■ ‘ f '' P- • 


•' ' r ' r ■ •* o':-' -• . - '• <•: • 


4. J 


*F ' A 

V,. . y 


00023? 


1 bVliHlD NOT fit 1. UNO ifn ANY STRATA ON THF SUBSTRATA HISTORICAL FU-FLUMP 

000240 


2 /ION SEGMENT, T5.» MU COUNIRT ,A4,9H REGION, 1«,/H ZONE, 14 

lump 

0 ' 0 !) 2 « l 


3 » ! OH STRATUM, 15t MM SUBS TP ATUM, T5) 

LUMP 

0 0 0 c*'«i> 


GO TO 300 

IT' IIP 

oo n pfi i 


4 15 HR I tt r t OUT , 1 b ) 1 ’W.fc 0,12 <l\F, 1 5 TK A T , 1 Sufi » I St 6 

LI IMP 

non pm 


15 fOKMATf Ul 0 , Till uFUIUN ,11,611 ZHUF ,13, Bit STRATA ,14, UM SUBSTRATA 

LUMP 

0VWU5 


<l , To , oh sifcOMFf.r 1 1 4 * / , 9 }n nu cpg u call much data available fop SEGMthnu'i 

bon?ii 6 


2 NT TNT|»MFt)iI(.Tt MLF REfURO. St 0 ME NT RtruRU SKIPPED ) 

h<H>3 

noo^o 7 


(.0 TO JOO 

LUMP 

00 0 r :'lU 

c 


LUMP 

090 2 <19 

c 

WHITE RECORD ON CROP WiNGUW Flit 

LUMP 

O'O o as o 


430 CONTl'NllF 

HOI; 3 

<K>025t 


IF Ul>«R ,fU. 1 KID TO 7140 

imip 

0002 S 2 


IF t TGPp.it 0 ..?) OF! TO <*'45 

Lump 

n-on/'i 5 


IF (T,>Siii'.rii.(rH,n to 4«e 

LUMP 

oon,.»'v9 


F A T Ai.= | 

LUlU* 

nun 255 


wf’JTi.f |.OUT,*!-fa) 1 P-F G , Ii2(vNF,ISTKAT,1SUN 

LUMP 

■O'O 1 ) 25 6 


16 FORMAT ft HO, <>'H RfOIUU ,11, hM 2'UNF »I3,0M STRATA ,10, 11R SURSTH A t A 

LUMP 

oo 025/ 


t » IN) 

LUMP 

o oo 2 i ' y 


n W lT I f t'fHJT , ! 7 1 

LUMP 

0002 '. 9 


17 F UK MAT I'M 1 M A GROUP 3 SUBSTRATA HAS 1 OR WORE SAMPLE SEGMENTS) 

LUMP 

no 11 . 29 x 0 


GO TO fj 6 B 

t T'MP. 

00 029*1 


440 1 F ( T 6 S ift 1 . • ME • 0 ) GO TO a4o 

LUMP 

0OH29.2 


1GPU=3 ^ 

LUMP 

00 0263 


W R ! T F f TOUT, 1 6 ) 1RF.G , 1/PNF * IS1-R AT* 1-SUB 

LUMP 

00029.4 


Mil Tit |WJT,la) 

LHMf 

0 0 020 5 


19 F'BRMAT (Mli A l. ROUP 1 SUBSTRATA OOtS NOT HAVE AT LEAST 1 SAMPLE Sf LUMP 

000266 


lG*'i Nil 

l UMP 

0 0 0 20 / 


l,(l TO 449 

LUMP 

QUnpnH 


445 I r ( THE lKFl.2) GO TO 447 

LUMP 

000209 


IR I/f!|;F ,NF. 170UE2) bn TO 447 

LUMP 

000270 


IFCIoTkAT .he. I6TRA2) nO TO 447 

LUMP 

000271 


IGNI'V- I'GRPPt 1 5 6 Ol» 

LUMP 

000272 


GO TO 6i4 9 

LUMP 

000275 


4«7 C f, '(*T 1 1 'lifF 

H0U5 

000274 


19 FORMAT («9H A STRATA WITH AT LEAST 1 GROUP ? SUBSTRATA OUFS, 

MU 01 

000275 


lb T H M4| MAVr A SAMPLE SEGMENT IN AN-Y GROUP 2 SUBSTRATA) 

HOD 1 

000276 


449 I* ( TCPpPrt .ME. 0)RO I'D 450 , 

M003 

000277 


NKC'lf - riP'LWf ♦ 1 

up u3 

000270 


W m I T L fTEWF) iriKY,lPtr.,I/n.vF,ISTKAT,|SUB, ( TPPEOw ( IT , T= 1 * fl> , 

LUMP 

000 2 V 


! J Sir.60 , ( It WP'L W ( T) ,1=1,5) , ( 1 PRFOS ( I) , 1 = 1,9) , ISF.SO 1 , ITCPPES ( 11 , 1st ,H1 MP 

n *< i- o 


P) 

LUMP 

n oo,: s 1 

CM* ♦'* 

LUMP 

000202 


IF f It 1ST .>0. 2 ) 

LUMP 

0 ' 0 'i'i’l' 5 


t RR I T t { |J OUT , ?4 ) 1 C TRY , IPEO , T /ONF , I S TK A f , lSUJB, IPPt OH', 1 St GSl) » 

MOD 3 

oo rt 


? irH'PLW , T PR!| ns, 1 SGSO * , I'CR'F’F s 

LUhP 

noi) 2 «'j 


?'4 FORMAT ( 11110 , Ttl'H CROP HHUdK F ILF / 1 CM IX THY s,A 4 „ 9 H TRFG =,14, 


000206 


1 1 n )l| I'/UHt s , I 4, 1 Til - is THAI =,15,9H ISUii =,15/ 


OO 020 7 


? 1 OH lPRHltW = , (J 1 A / 1 0 H IsliibU = KPpFh = ,513/, 

LUMP' 

000200 


3 1 4H IPrFOP = , M T 6 / , 1 O'H TSGSni = ,I2,10H I C K c t S = ,5T3/) 

LUMP 

00020 0 

e 

wit 1 1 F fit CO PU ON SUrSTR A 1 A MIST HR TC A'L F TLF 

LUMP 

00 0200 


450 ft P tilth = HR SHF , [ 

LUMP 

f )0 02 '>l 


or W 1 T F r T SHF ) 1C FRY , IRF.F, I / OuF » I STW A f , ISUB, 9 'SF G, ( 10S€G(I) »T=T? 

LUMP 

0 0 020 2 


1 (IV Sf f; ),lr.RP, ll I STPW , A'Rt" A, 1 PrSS,NAi»R ,NAI , OL v 1 Ph , UF.V TPM ,C V tC V4 
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0 0 020 i 


LUMP 

000244 


IF f 1| T ST „NK. 2 ) r.u i n 200 

LUMP 

0110205 


HR 1 T 1 ( 1 1 " U T , 2 2 M C TR Y , 1 11 E R , 1 / 0 NT , I S T K A I , I SUIT , N 5T G , < T U S t « { IJ , 1 = 1 » 

MO II T 

000206 


1 fiiSLG ) 

LUMP 

0 0 0 2 ° / 


22 F t>|i»’AT ( 1 1(0,2 /H. SlIllRTPATA »<1S Tl)P I C Al Til t / 1 0 H IT IP 7 =,A4, 


filjC.niH 


1 911 1 |,I G r., I 4, I UN T / Ml iF =,I4,1IH 1 S 1 RAT =»I'>tVH 1SHU =,1S, 
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1 
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0'0 0 5n<j 
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f 

000 . vo 5 

I 1 mi Tf’UTS Crt l ft.O/tOM MOP - t J S » 1 OH HAL c tIJt 


»NtW 


000304 

1 lOj* I/F vTr 4 = tF6.it 10W 

ptVTPH s tFfc.St/JOH CV * t « CPV.3t 1 X ) 1 
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**•2 


00 0 sob 

&n TO pOO 

. 
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> 

000306 

C 


U-'HP 



000307 

C VvhT|F TERMINAL WFCOKPS ON OUTPUT FILFS. 

LUMP 



oon sort 

fi'Ofr NFILL= l K' IMF - 1 


LUMP 


s 

0 0 ft 3 09 

Vil'ITt (ISlOF) LnDATA, 

( 7EH0tI=l»NF ILL ) 

LUMP 



no 0 31 0 

Hi WIND 1 6 1 OF 


ituo 1 



OOftit 1 

nF 11. L= Lhc«f - l 


LUMP 


i 

000312 

viP i Tt c irwF) fndata. 

( 7LR0 1 1=1 tiNF ILL ) 

LUMP 



n 00 5 1 3 

RFKTNf) IOF 


LUMP 


0 

oon s 1 o 

hi ill* t hrwr - 1 


LUMP 



nu 031 b 

WRITE (l&th 1 ) t«DATA» 

( ZFHOtlsl tNFTLL ). 

LUMP 



ft 0 0 S 1 6 

HI 6 TUI T lit P 


1. IMP 
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LUMP 
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0 0 0 0 t 3 
nooo 1 o 
000015 
noon i 6 
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OOOO? 3 
n o oo ? a 
o o oo ?5 
no oo ?fa 

0 0 0 tj ? I 

no rM) -'0 
nono?‘> 
oon.o vo 
o on o 3 1 
nooo'V2 
oo no 35 
00 01)50 
00 00 V5 
nuno Vo 
oooo V7 
0 0 01) U! 

0 0 0 0 v</ 
oo oo no 
00 0 on 1 
000002 
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0 00 0 0 0 
nuoo-'ib 
0 0 0 0 0 <» 
o on o (i / 
o oo o no 
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OOnosO 
nonnM 
0 o t’ 0 5 2 
no o o 5 3 
noou'.O 
nonosb 
o u o o s o 
nOOnS 7 
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c 

c 

c 

c 
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G 

e 


PROGRAM LUMPl)H(nFST = aOl tOTEbTs«01 *tAPfeSsl7f STtTAPtbstTTFST 
l , shtst-i= 0 ' 0 i .sst a i n=ou t tsEni-ODsoO i *sr (»f wosflo l' * in=iso'i«r.Hn»>ws6,o'i.» 
? S U 111 lb T it A o n t C R PE. WW = oo 1 , t I* P l N T s GO O t T API 3 0 = I* 0 « « T A PI 3 1 = 5 0 '4 * 

3 JNU-iaTs 1 000 • I A'pf •!= I-MOMAT 

2 * TAI'I; 1 1 sSHlSTlTt TA'Pt 12-S5T ATD. T APE I 5=SEGIDD.TAPE 1 OaSEDCwR 

<1 , T APE t sStC.JO* 'T APE ?=CWnPV » T A'Pt VaSOHMSl * 

OTAPr jflrfXPLRK* 1 APE J7=rHplNTT 

tMMP-UM /GPlMr.T/ ..... 

1 P T »Hhf }f-k, 51 AT MX »r MM A T A • /'F KO't I ?*P ♦ I UU T ♦ I NTSUI! * IN TSMi. lSlDf . 

2jrwF t Ji HE * L H J» T tlE * l PF ri-F «<l h'SHE * IH IN-.KXb'E U« I'CAl JH» TCWt » A'R t ACE' 

3t I bW 1 * jSnp * | tRUt-P 
I N I F Lif, I XT Mil 
CI»K«ClW /'El AGS/ 

t 1 ( HR » 1 ft<MT , r.gnu-l f NS"G * NS SC ♦ NSE'GC i MSt'liP .NSF GW * NKS I ME « UR-CWF rNRSHF » 
? l Ibr ».i ST .M ,-T kE lit , l xnivFt . 1ST RL » I r.uHL » Z St r-i «NStr>, in* bE g . m tlTST t 
VKf APbf , ( lini)?,E AT AT » 1 MAYO (0) t ll v b ! A 1M>) 

t • ■! rm i f «) » that cm ♦ i tit T ( t> v * n f > i ( « ’ ♦ i an i ( it ) » id a i ( o 5 

GOlill! 1 »(»(''() 02 t KFAPbF » F A f A . 
cm- hu -I / 1 NPii t / 


a 001 
rtP()0 
MPUO 
noun 
lukpur 

Nf’Dfl 

LHrim/P 

GPliSl 

cm.sT 

tm.ST 

m*d« 

CONST 1 
El AGS 
El AGS 
1 1 ag 5 
f 1 A'-S 
MUD? 

E 1 AGS 
H PI'T 


tv'j'-rnri . ~ ’ 

1 pSE F 1) • sI'L' AH tUl liTPW » ntVlTH tC V { 3) •DrVTPH ttlC AT »UI ! DNG-.S1 AT ( 3) »Sl USUf 5) I -E 1 1 

* * _ . .. . . . _ a . * ■ > , ■ m,. .ik f t'll * r t i\ . Ti.ru. IV nut 


?i MA'WiV 1 2) . It TtlV I It THY 2 1 1C ASf » M 1ST » I TbE G* IS’HP i lSSU t IS 10* TbCNt 
31 Sir. » |p* u» J'/u’H- t 1 S1« AT f T'SHu * iS"’ I TVPt ♦ 1 TrPt?» T M'tX» TSf.G?» THE G? • 
fl] / UNI ?, ISTHA21 1 SUM 2 1 L a I (31 tT.UMGf 5) * ITR(«) t I>u(0) t TUAt 0; rCVUtlSWOt 
S|)E IT nf ( 0 J f II’I.N I E T T SE GSDf I T l( I NU t N aGn * KAL » 1 TL TbT t E>) » NGhCU i f.T, Ml C0» 

(iNCIiHP t Jl'AYO 1 ( 0) tGH.h't 1 (0) » IPLNT I r Ib'-SF/l * 1!)AS( M) t I'iOS 1*1) » 1 YMS l V) 

ttn'JiuJ PKl'CIbltiN PSEkP 
IM At ' APbi'Oticrinr.lcinry 
C'lMHUl / L '' A T A / 
t w n d a t a ( p J t S t) d a t a ( n -) 

J 11,1 r 10 H H'W D A I A t SwDA T A 


!>P'I? 

l'.pill 


DATA 

1 / 

data 

t / 

DATA 

I / 


pi f i'FGTOP r AR1ACF • 

i. 1 0 ] sv?6 f 0 . 0 1 7 05 32*72 f 0 . 73t- 5* 
/FRO f J.NP t lnkJT t INTSUH t INI stu * 
0 • S i b t 1 i • 

L E3 1 UF I 1. hCrtl , I HSHF . I WIN 
17 • 35 , 170 « 0 


10 . 

t a x i> E g 

» 150 


sla rax 
(>b.O 
ISlDP 
Z » 2 • 

. 1 r «F • I G At. IN 
, t> * 7 / 


t LNllATA 
. MlUZ ! 
ICWF * 1 SHF 


TEHPORARliLY REKTNn IuRC’T FILES ***** 


DATA F A 1 AT. /O/ * IGRDTP/O/ 

G 1 
C 

RFWTND INTSl’n 
KF.w r an J nt src 

HFWLMD TCALTN 


C 

C 


to 


read CONTRIIL card 

PFAG f j HP • ill I CASE «HSbFD» ft 1ST » I TSf G 1 1 SHO-t ISSU * IS ID t ISC W 1 1 CHE 
f fill ''AT ( IS. v * . d 1 2 . 0 » I 7. MS) 

WHITE (lull! . 1*1) ICAST tllbEED, IClST. 1 1 Sf Rt ISHDt ISSDf ISIU . ISCR? TCRt 
MHHAT dial CASF HU..T50 


7?*H'o 
/ 1 'I'M 0 
/ Pt'Kn 
/vt"(l 
/ V oi'o 


IMTlAl PAtlGf'K NHHHIR SEE D . D 1 . 1 ? 
t 1ST DPI non. T 3i 
TRAINING hi (» v t*ll OP IlOM, II ” 

SIP'S l H A ! A 11-ISVnnKAiL DATA (Id. NO. .10 
S U r 1. T )» A l A S I a I I b T I C A 1 DATA FILE N0.»I7 


I* PUT 
INPUT 
I! PUT 
lHpHT 
1* PU T 

IDATA 
COAT A 
1 DATA 
LMH'M'R 
LUsgdR 

LIIH’ljH 

UlHPDP 

i.mkp|)R 

LUMPUR 

it P 1)1 
Ct'HPijR 
Ill'll 0 

LUMPUR 

LUMPOR 

U'mPDR 

lum’dr 

LP«P1)R 

CluiPtjR 

Ll'.“Pt)R 

LumpdR 

CUmpdR 

Lt'MPDR 

U'm'UjR 

U-MPjP 

Ll'H-PDR 

Li'H.PpR 

lchpijR 

U'tit’iiR 

LUMPUR 

L"iv"iiR 

LHllPiiH 
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ro i 
m cr- 
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OOOOS9 

00006 O 
onnoM 
0000f>2 
no no ^ i 

O'OO 1)7.0 
0*0 0 07>‘j 
O'O 1 0 1: t> 
o 0.1 Or* 7 

Oil 0(17,0 
nun 07. 9 
000070 
0 0 0 0 71 
00 07)7 d 
00 00 73 
00 0 o'/ 4 
<VU 00 7 ‘j 
00 Oil 70 
00 oo 7 / 
00 o 0 7'0 
000079 
O'O oooo 

<vo o on l 

O'O 0 0!'<? 

oo aijoi 
noono o 
no no n(> 

00 ROM'S 
OlJO0«7 
onoof u 
00 0(l(i 9 


6 /371H0 

7 /3'St'O 

* /36H0 


SA’MPIF. SEGMENT 115 DATA HU HO. til! 
SUBSTRATA CROP CALENDER Flit Nn.»S*tIS 
CHRP CALENDER FRRUR 'BATA F TLF Ni) . , fl X » 15) 


Rf V.TwP 
HF«T-‘iP» 
K('W I MR 
R ! V,IM » 
Ri t. 1 Nil 


TSHD 

TSSU 

IS TO 

tsrw 

ICv E 


CM.! Ht/f-WTlKO) 


11 


If ( H tST .Hf. 0 J KRITF CI«1UT»11) 

1 t?SStgtlSl'f'l«ISCH»ICWF 

FdR'MAT ( 30 Ml LIST Ifir. flF INPUT CARO 
tl*»I5, 37,019. 12.17, MS) 


LUMPUR 
Hn(>? 
MRU? 
Ll'iM'RR 
ID HP DR 
lUMPfR 
U“Kt’[iR 
LUM»’ dR 
L!"N u L'R 

ICASt*KSfcFUtIt 1ST tITSFGtISHiH I-MPijR 

Ll'KPOR 

I|RAI,FS///1‘6H CUM RUE CAR V// Lt'HPDR 


SO 


"It. 0 .'UR. lSl'O *NE . 0 ) CALL FTLUN 


IF f IS«U 
CALI ! l(PP 

WlUTt C I CUT ♦«0'»;UK5 IW.NttCWF »NWSHF 
90S fnwMAT ( 1II0» l4*3J*h SFGPtfM 10 F It t RECORDS kRITIFN/ 

1 ,1X»1'I,3‘>H CRCR LA'LFRntR FILE R'F CARDS WH17IEN/ 

?, IX. 10,39(7 Str.nr.NT REFERENCE file HF CORPS wRiTT-fN) 

IFCKATAl .HI. 0) WRITE f InUT.W) 

900 MIMiATf, lMO,SbH e A t A L fKR'UR OCCUREO IN LUMP, F TLF S MAY NOl UF ANY 
It) CIJ) 

Rsrtn 

Cii)UPltTEB.//?e() LASI RANDOM N(J M l>FR SEED • 
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WRITE (IBU I • 1 3) 
FORMAT (1 /HI Jtm 
Id 19 . 1 ?) 

C I'Ll; R|)r,H I H C-1 ) 

ft T UP 

END 



L«"WPO« 
L"hR|jW 
Ll'MPuR 
add i 
MODI 
Mf't) 1 
MODI - 
LHhi’DR 
t Lt'Kl’DR 
H' mIHtR 
Ll'MPuR 
LI CPOR 
LUKPl’R 
MOD* 
Ll'MPDH 
LUHPDR 


• NEW 

• •-1 


t 


b 


Vfl Tv- 
er 00 
cm n 
<6 W 

Pd I 
cr> o 
i— o 

Pd 

-J 

I 

& 

G 

i 

o 

o 


I" 






» ELT RUr.RI 0 »t* 7 #> 0 «' 01 f 6?419 , I 
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oooo?b 
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SHHROMfTNF RDWIoCJf.) RDCR I 0 

C THIS ROUTINE WILL OPEN OR CLOSE ir.RDTP Flit OR WRITE A RECORD ON TkPGRlD 
C T rtm;r IP 

COMMON /CONST/ CONST 

IPI.ntr.tfiR, SLATMX.FM0ATA.2ER0, INP , IOUT ♦ INI SUM . TNTSEG. ISIDF » CONST 

2 1CWF ♦ I S'T'F , I.RSlOF .'I RC WF t4RSHF , Im iNi. M'XSt (i» I CAL IN. TCWL » Ai?L ACF CONST 

3 . I S w 1 , ,{ S.h ? » T CRH T P MOOR 

r-'I Fl.F.R Pt-'R CONST 

COHPOh /DriwVC/ Dili AC 

1 1 r 0 1 -4 ( 2 ) T T k F C f ') 00 1 u Irac 

DA t A t'AXj/42/. IMATI/4H1NDE2.IMAT2/«H'XHAT/ Wt'l.Rlt) 

C DA I A PaXJ/252/ KOuRIP 

IF c .Mil jj*i ,10,40 kOURj O 

10 DfFTNF Flit 4 ( 42 .50 Of t. TOWM) 

Rl APCIrRoTP-' 1 ,tRK=l001 URFCUT *I»ltSt)0) 

IF lift fill .£». I M AU .AND. IRfcC(P) .flu' T«AT?)'RO TO SO ROf.l-’lO 

h»lTI f T:C'U T . R'O’O ) H tU» 0 1 0 

STOP K [i 0 R 1 0 

900 FPH'MAI ( THflffl-bH *** WBRNr, FILE M0UN1FD t OR INDEX GRIP MATRIX) HfH.HIO 

25 CONTINUE 

c ?s lali ri psi ( turdtp. oi 

1,0 III so. R PGR 10 

4 0 J = Jr ♦ I HP (.P I P 

H f «VP ( T fip 0 T P ' J . E RR = 1 00) ( T'RF C C I ) » t *T .500) 

SO krltllif NiRGRIP 

10 0 /■ R I T L f I PU T » *>-0 I ) 

MOP 


901 E PKiHAT 1 1 HO , 9 ih *** AN IRKECOVER *01 t I/O ERROR HAS OCCURRED ON REAP 

i if o a i*i cprd from the index matrix file /iux.mh Thf juh is ofing 
jAi'AMunwro *♦*) 

END Wn&RlO 
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Problem Description for System Error 
Executive (SEE) Program 


1.0 SCOPE 

1. 1 PROGRAM CAPABILITIES 

This program provides the means to create certain files containing 
error coefficients and terms necessary as input to the LEM program. 

The input data to this program consists of three card sets containing YES 
error and truth data, CAMS error data and signature extension data. As 
the data on the cards is transferred from card images to the output data 
files, each data field is checked for validity and each card ID group is 
checked against the substrata historical file to detect missing data. A 
message is printed for each error found. The program provides on 
option a list of all cards and also a listing of all records written on the 
output files. The output files are the YES error file, CAMS error file 
and signature extension file. 

I, 2 PROGRAM DEVELOPMENT AND ORGANIZATION 

The program will be developed in FORTRAN IV on the CDC 6600 
time sharing system and later converted to FORTRAN V in order to be 
run on the UNIVAC 11 TO at NASA, Houston, under EXEC VIII. 

1.3 OPERATIONAL ASSUMPTIONS 

• One case may be run at one time. 

• Only one country may be processed in a case. 

• The three data card sets must be on separate input files and 
in sort as follows: 

The major sort field is listed first. 

1. Y'ES error data, set 5 

Country, region, zone, strata and card sequence number 

2. CAMS error data set 6 

Country, region, zone, strata, substrata, segment and 
card sequence number 
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3. Signature extension set 7 

Country, region, zone and card sequence number 

All cards in a group with the same ID must l>e present even 
though a card may contain only blank data e' tries. 

The program will require less than 20, 000 words decimal of 
storage in the CPU of the UNIVAC. 

The program will run only if the specified substrata historical 
file is present. 

Except in the case of an input card set being out of sort, the 
program will continue cheeking for field errors and for mis- 
matches vs. the substrata historical file. A fatal error will 
stop output files from being written. 

Input data groups for which there is no ID match on the sub- 
strata historical file are considered to be extra data and are 
not written out on the output files. 

IDFRS and IDTOS specify ID limits for which certain errors 
are considered to be fatal. If a normally fatal error occurs 
on a card group outside these limits, it will be considered to 
be non-fatal. 

A negative non-zero entry in any card input unit designator 
IYESR, ISIGEX or ICAMER indicates that that dita is. not to 
be read or processed and the corresponding output file will 
not be created. 

The United States must be assigned the symbol "USA " and 
Canada must be assigned the symbol "CAND". 


2.0 INPUT 
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There are four card sets and one binary data file required as input 
to this program. 

The card sets are: 

1. Program control card 

2. YES truth and error data 

3. CAMS error data 

4. Signature extension data 

The data file is: 

1. Substrata historical file 
2. 1 CARD INPUT 
2. 1. 1 List of Data Quantitie s 

See input data description sheets on Pages 259-263. 

2. 1. 2 Card Formats 

See card format sheets on Pages 264-267. 

2. 1, 3 Deck Setup 

The input card data stream will have one card, the program control 

card. 

The YES data will be on the file specified in IYESR (Unit 1 is assumed 
if this entry is 0). 

The CAMS error data will be on the file specified in ICAMER (Unit 4 
is assumed if this entry is 0). 

The signature extension data will be on the file specified in ISIGEX 
(Unit 2 is assumed if this entry is 0). 

In the ease of the signature extension and CAMS error data cards, if 
the data is constant for a particular ID level such as zone, only one card 
group may be filled out for that zone and all ID levels below zone are left 
blank. 


INPUT DATA DESCRIPTION 


Nominal 


Name 


Symbol 


Dimension 


Value 


Range 


Units 


Description 


CASE 


1 


1-9999 


Case no. to be assigned to identify the three 
output files. 


LIST 


DFRS 


DTOS 


YESU 

SIGEX 


CAMER 


CSESH 


1 


0-2 


2 


0 , 0 


2 


1 

1 


0 , 0 

1 

2 


1 


4 


1 


List option to list all input data cards or only 
those in error and all output file records. 

= 0 list cards in error 
= 1 list all input data cards 
= 2 list all input data cards and all output 
file records 

Specifies ID of starting zone for which errors 
are to be considered fatal. 1st item region, 
2nd - zone. Blank or 0 entry means entire 
ID range is active. 

Specifies ID of ending zone for which errors 
are considered to be fatal. 1st item is reg. , 
2nd - zone. 

File unit no. for YES input card data. Minus 
value means not to read or process this data. 

File unit no. for signature extension input 
card data. Minus value means not to read 
cr process this data. 

File unit no. for CAMS error input card 
data. Minus value means not to read or 
process. 


Zero or blank means not to check on case no. 
of input substrata historical file. 


3 TRY 


1 


Four character country name (i. e. , USA , 
USSR). 


I 


1 
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DESCRIPTION 






Units 


Region no. 


Description 


Zone no. 
Strata no. 
Substrata no. 


Quin/ 
he eta r 

Yr, Mon, 
Day 


Quin/ 

heetar 


Quin/ 

heetar 


I 

i 


i 



True yield of stratum (for USA , and CAND - 
bushels /acre. 

Year, month and day for error truncation. 

If 1st value is 0, then there is no bias or std. 
dev. data. Any other 0 value terminates 
data entries. 

Bias error of yield. One value for each /0 
value of IERDTE for USA , CAND - bushels/ 
acre. 

Standard 1 deviation of yield error. One value 
for each 40 value of IERDTE for USA , 

CAND - bushels /acre. 

Nominal frequency of labeling wheat given 
pure wheat pixels (conditional prob.). One 
for each window. 

Nominal frequency of labeling wheat given 
mixed pixels (cond. prob. ). One for each 
window. 

Nominal frequency of labeling wheat given 
pure other pixels (cond. prob.). One for 
each window. 
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INPUT DATA DESCRIPTION 


Name 

! Symbol 

Dimension 

Value 

Range 

Units 

BWW 

©CW/W), 

4 

0 

+9.999 

- 

BWM 

b\W /M) i i 

4 

1 0 

i +9.999 

- 

BWO 1 

B(W/0). 

4 

0 

+9. 999 

- 

SIGWW 

! 

(7C^/W) i 

4 

0 

0-9. 99 


SIGWM 

cr(W/M) i 

4 

0 

0-9. 99 

- 

SIGWO 

fT(W/0). 

4 

0 

0-9. 99 

- 

BPW 

B PW. 

i 

4 

0 

+9.999 

- 

SIGPW 

a PW. 

4 

0 

0-9. 99 

! 


1 i 








i FOR MC 

DEL 1 SIGIS 

ATURE EX' 

B1W 

i i 

B iW 

1 

0 

+9. 999 
~ 

l 

- 

B2W 

| B 2W 

1 

0 

; 

+9. 999 

- 

SIG1W 

a liW 

6 

- 

i 0 - 9 . 99 

- 

SIG2W 

j ®2iW 

: 

6 


0-9.99 



Bias error in classifying pure wheat pixels. 
One for each window. 


Bias error in classifying mixed pixels. 
One for each window. 


Bias error in classifying other crop pixels. 
One for each window. 


Standard deviation in classifying wheat 
pixels. One for each window. 


Standard deviation in classifying mixed 
pixels. One for each window. 


Standard deviation in classifying other crop 
pixels. One for each window. 


Bias in proportion estimate (model #2). 
One for each window. 


Standard deviation in proportion estimate 
(model # 2 ). 


’ENSION 


Multiplicative bias error W/W. 
Additive bias error W/W. 


Multiplicative std. dev. error (W/W). One 
for eaeli training priority segment. 


Additive std. dev. error (W/W). One for 
each training priority segment. 
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INPUT DATA DESCRIPTION 


St A 


Nominal 


Name 

Symbol 

Dimension 

Value 

Range 

Units 

Description 

B1M 

B 1 M 

1 1 

- 

+9.999 

- 

Multiplicative bias error (W /M). 

B2M 

B 2M 

i I 

- 

+9.999 

- 

Additive bias error (W / M). 

SIG1M 

1 ° liM | 

6 

- 

0-9. 99 

- 

Multiplicative std. dev. error (W/M). One 
for each training priority segment. 

SIG2M 

CT 2 iM 

6 

- 

0-9.99 • 

- 

Additive std. dev. error (W/M). One for 
each training priority segment. 

BIO 

B 10 ! 

I 

- 

, +9.999 

- 

Multiplicative bias error (W / O). 

B20 

B 20 

1 

- 

! +9. 999 

- 

Additive bias error (W /O). 

SIGIO 

°liO 

6 

- 

i 0-9. 99 

- 

Multiplicative std. dev. error (W/O), One 
for each training priority segment. 

SIG20 | 

CT 2 iO 

6 

FOR MC 

0-9. 99 
)DEL 2 SIGI 

(ATURE EX 

Additive std. dev. error (W /O)- One for 
each training priority segment. 

rENSION 

B 1 

B 1 

1 

- 

; +9. 99 9 

- 

Multiplicative bias error 

B2 

B 2 

1 1 


i +9.999 

- 

Additive bias error 

SIG1 

a n ; 

6 

- 

0-9. 99 

- 

Multiplicative std. dev. error. One for 
each training priority segment. 

SIG2 

cr_ . 

2 i 

:■ 

6 

- 

i 

0 - 9. 99 j 

! 

Additive std. dev. error. One for each 
training priority segment. 

ISET 

" 

, 

1 

1 

i 


! 


Card set number in column 80. 5 for YES 

error data. 6 for CAMS error data. 7 for 
i signature extension data. 




Li i I'Jsf.k.' J i. 
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INPUT DATA DESCRIPTION 






! Card sequence number within card set with 
the same ID. Used to identify each card of 
a group. YES error has a 2 card group. 
CAMS error and sig. ext. each have 4 card 
groups. 












YES Error Data Card 1 



YES Error Data Card 2 


1 

5 ; 

9 

12 

15 

19 

24 

29 

34 

39 

44 

V 

/\ 




■ 


Bias 

Error 

of Yield 


Country 

Reg 

l. 

Zone 


! B i | 

B 2 

• 

B 

B 5 

B 6 


A4 

13 

13 

14 



6E5. 1 




SEE Data Cards 









«p o 



49 54 59 64 69 74 79 80 


Standard Error of Yield 



O'-, 

CT- 

O', 

CT C 

Hi 


2 

3 



4 

5 

■ 


6F5. 2 


< 


— ^ 
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GAMS Error Data Card 1 for Pure Wheat Pixels 


— 






Mnmina]' Frcci. Label Wilt- 

Bias Error in Classifying Wheat.. 

1 Std. Dev. ( 

^lg-s.gjIy.J 

.Vht. . 


r 

:> 

nt 

Country 

Reg. 

Zone 

Strata 

Sub- 

strata 

P(W/W) 1 

P(W/W) 2 

P(\V/W) 3 

P(V7/W), 

| B (W /W )j| 

B(V7/W) 2 

t i 

B(WAV)^jB(W/V7) 4 

orfWAW) 

aCWAff), 

i- 

trfWAVjJ 

crfiVAV) ,1 

1 


13 


13 


14 


14 


4F4. 2 


4F6. 3 


4F4. 2 


CAMS Error Data Card 2 for Mixed Pixels 


12 15 19 23 27 31 . 35 39 45 51 5? 63 67 71 75 TjJjQ 

. - * ■ * ■■ * ■ ■»' " '■■■ ■ r ' " ! ■■■■■ — — — ■ ■■ ~ i ! I ! I 


E 




vjzm 

2 


Bias Error in. Classifying Wheat i Std. Dev. 

Classify Wht. 


1 


Country 

Reg. 

Zone 




m 

P('.V/M), 

B(W/M) , 

B0V/M), 

B(W/M) 3 

B{V//M) 4 ofW/M) l 

CfVV/M) 

cr( W/M) ^ cr(W/M) t 

3 [ *x 


I 

A 4 ■ 

13 

13 







4F6. 3 


4F4. 2 




CAMS Error Data Card 3 for Other Pixels 


57 


63 


67 


71 


75 


-7180 


A4 


— 



16 

a 

17 

Nominal Freq. Label Wht. 

Bias Er 

ror in Classifying Wheat 

Std. Dev. 

Classify 

Wht. 1 


/ - 

> 

nt 

Country 

Reg. 

Zone 

Strata 

Sub- 

strata 

•d 

o 

H=*_ 

p(v.7o) ? 

P(W/0)J 

P(W/0) 4 

B{W/0) l 

B(W/OJ 2 

B(W/0) 3 

B(W/0) 4 

cr(W/0) 1 |o(W/0) 2 

a{W/0} 3 

crp.V/O) 

. 1 3 

6 


13 


14 


14 


4F4. 2 


4F6..3 


4F4. 2 



C 

-* 

9 

12 

15 

19 

23 

27 31 

35 

■ 




SEE 

Sub- 

strata 

Std. Dev. Proportion Eat. ! 

p 

Country 

Reg. j 

Zone 

Strata 

cr(PAv) 1 

ct(PAV) 2 jc?{PAV) 2 

0<P/W)., 


A4 

13 

13 

14 

14 


4F4. 2 



CAMS Error Data Card 4 
39 45 


51 


57 


63 


3ia3 in Proportion Estimate 


3 (P/W ) L 


B(P/W), 


B(P/W), 


_L 


B(PAV), 


22_8Q 


*d £ 

JU 00 


era 


to 


4F6. 3 


(5 W 
tv.- x 

-e=r-cr'' 
O' o 
to 
-4 

I 

$0 

c 


4 ! < 


SEE Data Cards (cont’d) 

















Signature Extension Data Card 1 



Signature Extension Data Card 





i 

o 

o 


ttfruv-afeL-fca d 


ii.'P'J iit\ 'ijJn-.Hi, 























I 



i 

) i 
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2. 1. 4 Rales for Entering Data. Items on Cards 
2. 1, 4. 1 General 

1. Integers must be right justified. 

2. Alphanumeric data must be left justified. 

3. F format numbers must have the decimal point present, i. e. , 

F6. 2 - NNN. NN. However, the user may override the specified 
field format as long as the total field width is not exceeded. 

4. Except for IYESR, ISIGEX and ICAMER, all other nominal values 
are zero. 

2. 1.4.2 Rules for Inputting Specific Fields 

• ICSESH must match the ease no. of the substrata historical file. 


• If IDFRS and IDTOS are left blank, then it will be assumed that the 
occurrence of any fatal error will terminate the writing of that 
output file with which it is associated. 

• If the first entry of IER.DTE data is 0 or blank on card 1 of a YES 
data group, then the card 2 data is ignored (the card 2 must be 
present but can be blank except for ID). The IERDTE data and 
card 2 data from the last non-zero IERDTE data group is used to 
obtain values for the current group. 

• All standard deviation, bias and frequency data items are checked 
to be within valid ranges. See Section 6.2 for specific field checks. 

2.2 FILE INPUT 


The only input binary data file is the substrata historical file. See 
Section 2. 4 of the Users Manual for format and contents. 
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3.0 PROCESSING 
3. I OVERVIEW 

The program is basically an inpat data card error checker and data 
file generator. 


The program will be organized into five basic routines consisting of 
driver, YES input data processor, CAMS input data processor, signature 
extension input data processor and error processor. The driver controls 
the reading of the substrata historical file and the calling of the input 
processors. Each of the input processors reads an input card group, 
checks each data field for errors, prints on option the input card image, 
correlates the substrata historical file with the input data and writes an 
output file. The error processor catalogs and prints out the input data 
error messages. The program will continue to read each data type and 
error cheek the data until an EOF is reached for that data, regardless of 
how many errors are detected. If a fatal occurs for a data type, the 
writing of its output file is terminated. The only exception to this process 
is that if any input data set is out of order, the program terminates process- 
ing and returns control to the system. 

3. 2 PROCEDURES AND EQUATIONS 

There are no application oriented procedures performed except for 
error checking which is described in Section 5.0. 

The only calculation performed is that if the country is either USA 
or CAND, then the yield data is input in bushels per acre and must be con- 
verted to quintals per hectar before being written to the YESERR file. The 
conversion equations are: 

1. YIELD “ YIELDI / 1. 4869664 

2. BIASY(I) = BIASYI(I) / 1.4869664 for I 5 I =* 6 

3. SIGYIE(I) = SIGYH(I) / 1. 4869664 for 1 ^ I ^ 6 

In addition, the truncation date .IERDTE is converted to Zulu date 
prior to being written on the YESERR file. 
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4.0 OUTPUT 

There are four media of output: 

1. PRINT file 

2. YESERR file 

3. CAMERR file 

4. SIGEXT file 

4. 1 PRINT DATA 
4. 1. 1 ECHO Print 

If ILiIST = 1 or 2, then each input data card image will be listed in a 
form as close to the input form as possible. 

Re gar die ss of ILIST' s value, if an error is found on a card then the 
card image is printed in an identical manner. 

Since each input data file is processed alternately, the listing of 
each card type will be intermixed with each other. 


Print Format for the Control Card 


ICASE 

ILIST 

IDFRS 
REG ZONE 

IDTOS 
REG ZONE 

IYESR 

ISIGER 

ICAMR 

ICSES HI 

NNNN 

N 

NNN NNN 

NNN NNN 

NN 

NN 

NN 

NNNN 


Print Format for Bulk Card Data 
YES Data Group 

«*= CARD IMAGES FOR 1 ID GROUP 15 

< — CARD IMAGES FOR 1 ID GROUP 25 

CAMS Data Group 

CARD IMAGES — » 16 

I 26 

l 36 

Sig Ext Data Group ^ 

--- CARD IMAGES 17 

| 27 

37 


Repeat for each type and group unless a particular type is omitted via the 
file unit flag. 


1 


l 
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4. 1. 2 Intermediate Debug Print 

If ILIST = 2, the contents of each record written on an output file 
is printed. Again the printout for each file is intermixed in the order of 
processing. Assuming all three files are being writter , the format is 
as follows: 

YESERR File 

ICTRY = AAAA IREG = NNN IZONE = NNN ISTRAT = NNNN 
Y =NN.NN (IERDTE(I), BIASY(I), SIGYIE(I), I = 1, 6) = 

NNNNN NNN. N NN.NN NNNNN > etc. 

CAMERR File 

ICTRY = AAAA IREG = NNN IZONE = NNN ISTRAT = NNNN ISUB = NNNN ISEG = NNNN 
(PWW{I), PWM(I), PWO(I), BWW(I), SIGWW(I), BWO(I), SIGWO(I), 

BWM(I), SIGWM(I) , BPW(I), SIGPW(I), 1= 1,4) = 

N.NN N.NN N. NN NN. NNN N. NN NN. NNN N. NN NN. NNN N.NN NN. NNN N.NN 

Second set is on same line. 

Third and 4th set is on 5th line. 

SIGEXT File 

IC TRY = AAAA IREG = NNN IZONE = NNN 

B1W = NN. NNN B2W = NN. NNN SIG1W = N . NN ^ N. NN & SIG2W = N. NNj, -- N.NN^ 

B1M = NN. NNN B2M = NN. NNN SIG1M = N. NN^ --- N.NN^ SI0 2M = N. NNj, -* N. NN^ 

BIO = NN. NNN B20 = NN. NNN SIGIO = N. NNj N. NN & SIG20 = N. NNj, — N. NN, 

B1 = NN. NNN B2 = NN. NNN SIGl=N.NN l --- N.NN^ SIG2 = N.NN^ --- N. NN^ 

4. 1. 3 Status Information 

The following information will print out at the end of the run. 

NNNN SUBSTRATA HISTORICAL, FILE RECORDS READ 

NNNN YES DATA CARDS READ 

NNNN CAMS ERROR DATA CARDS READ 

NNNN SIGNATURE EXTENSION DATA CARDS READ 

NNNN RECORDS WRITTEN ON YESERR FILE. ICSEYM = NNNN 

NNNN RECORDS WRITTEN ON CAMERR FILE. ICSECE = NNNN 

NNNN RECORDS WRITTEN ON SIGEXT FILE. ICSESE = NNNN 

NNN INPUT ERRORS DETECTED 
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Either one or the other message will print 
JOB COMPLETED 

FATAL ERROR OCCURRED IN SEE, FOLLOWING FILES MAY NOT BE 
ANY GOOD 

AAAAAA AAAAAA AAAAAA 

4.2 FILE OUTPUT j 

Up to three files are output from this program. 

1. YESERR - YES Error File 

2. CAMERR - CAMS Error File j 

3. SIGEXT - Signature Extension File 

See Section 2.4 of the Users Manual for contents and format. 




1 


I 



J 


f?’ r— vj ?■ • 
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5. 0 ERROR PROCESSING 

With the exception of the wrong substrata historical file being mounted 
or any data out of sequence, the program will continue io check for all types 
of errors even though the writing of a given output file aas stopped. There 
are three categories of errors: 

1, Fatal with immediate termination - level 3. 

2, Fatal for a given input data type - error checking continues 
but the writing of the corresponding output file stops - level 2. 

3, Nonfatal - normal processing continues - level 1. The card 
image of the card with field errors or card ID which triggered 
a general error will be printed prior to the message. The 
error checks, messages and fatal status are given i. Sections 
5, 1 and 5. 2 below. 

5. 1 GENERAL 


Level 3 
Code No. 

1. A check is made that the correct substrata historical file has 
been mounted as specified by ICSESH, 

Message: 

EITHER THE SUBSTRATA HISTORICAL FILE HAS NOT BEEN 
MOUNTED OR IT HAS THE WRONG CASE NC. PROCESSING 
IS TERMINATED. 

2. A check On sequence is made from country down to the card 
sequence no. for each active card input set. In addition, a 
missing sequence no. in a card group with the same ID will 
cause the same action to be taken. 


Message: 

THE - INPUT DATA SET IS OUT OF ORDER. PROCESSING 

IS TERMINA TED. 
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3. A eheek is made to make sure the ID in IDTOS is ^ the ID 
in IDFRS. 

Message: 

ID IN IDTOS IS NOT GREATER OR = TO IDFRS 

The following errors are level 2 if the error oe< urs when the current 
ID is in the range specified by IDFRS and IDTOS. Otherwise, it is a 
level 1 error. 


10. A cheek is made to make sure that each SUBHST record has a cor- 
responding record for each of the active input card sets for YES and 
Sig. Ext. This situation will only be considered an error in case of 
Sig. Ext. input if there is at least one segment in the SUBHST record. 


Message: 

Optional line 

LEVEL 2 - WRITING OF FILE TERMINATED 

ICTRY ---- IREG ---- IZONE ISTRAT ---- ISUB 

INPUT DATA SET DOES NOT HAVE A RECORD WHICH 

CORRESPONDS TO SUBHST ID. 

11. A check is made to make sure that for each record ii: SUBHST 
with one or more sample segments there is a CAMS input card 
group for each segment. 

Message: 

ICTRY IREG --- IZONE --- ISTRAT ---- ISUB 

CAMS INPUT DATA SET DOES NOT EXIST I OR SEGMENT 

IN SUBHST RECORD. 

Level 1 Error 
Code No. 

15. A check is made to see if an extra input card group has been 
input with no match on the SUBHST file. 

Message: 

THE INPUT GROUP DOES NOT MATCH WITH SUBHST 

FILE AND IS EXTRA DATA 

5. 2 CARD FIELD ERRORS 

The occurrence of any of these errors is level 2 if the error occurs 
when the current ID is in the range specified by IDFRS and IDTOS. Other- 
wise, it is considered to be a level 1 error. 


Code No. 
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20. A check is made to make sure the error truncation dates in 
IERDTE on YES card 1 are in ascending order (if not all 0), 

Message: 

IERDTE ARRAY HAS DATES NOT IN ASCENDING ORDER 

2 i . A check is made to make sure YIELDI on YES card 1 is 
between 0 and 99. 99. 

Message: 

YIELDI IS NOT BETWEEN 0 AND 99. 99 

22. A cheek is made to make sure that BIASYI on YES card 2 
is between -99. 9 and +9 q . 9. 

Message: 

ABSOLUTE VALUE OF BIASYI IS NOT LESS THAN 99.9 

23. A check is made to make sure that SIGYII on YES card 2 
is between 0 and +99. 9. 

Message: 

SIGYII IS NOT BETWEEN 0 AND 99. 9 

24. A cheek is made to make sure that the P(W /i) data for a 
CAMS card group is between 0 and 1. 

Message: 

PW- IS NOT BETWEEN 0 AND 1 

25. A check is made to make certain that B(W /i) and 3.^ for a 
CAMS card group is between -9. 999 and +9. 999. 

Message: 

ABSOLUTE VALUE OF BW- OR BPW IS NOT LESS THAN 9. 999 


r 




; y 

J t 
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Code No. 

26. A cheek is made to make certain that CTp W for a CAMS card 
group is between 0 and 9. 99. 

Message: 

SIGW - OR SIGPW IS NOT BETWEEN 0 AND 9. 99 

27. A cheek is made to make sure that and B^ data on the 
signature extension card group is between -9.999 and +9. 999. 

Message: 

ABSOLUTE VALUE OF Bl- OR 32- IS NOT LESS THAN 9. 9+9 

28. A cheek is made to be sure thatcr ^ or c ^ data on the signature 
extension card group \s between 0 and 9. 99. 

Message: 

SIGI- OR SIG2- is NOT BETWEEN 0 AND 9. 99 

29. A cheek is made to make sure the dates in IERDTE are in 
range. Year must be greater than 64, month must be between 

1 and 12 and day must be between 1 and 31. 


Message: 

IERDTE ARRAY HAS A BAD YEAR, MONTH OR DAY NUMBER 
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PART n 


COMMON BLOCK DEFINITIONS 


Dimen- 

sion 

For- 

mat 

Description 

Sym- 

bol 

' 1 

Units 

...... 




ICTRSV 


IREGSV 


IZONSV 


INP 


ICASE 


I LIST 


Saved SUBHST ID 


Unit 6 


Unit 5 


See Problem Description 
Case No. 


0 - List cards in error only 

1 - Echo input card image 


cho input and print 


IDFRS 


IDTOS 


IYESU 


ISIGEX 


ICAMER 


ICSESH 


ICTRY 


Starting region + zone for level 2 errors 
to occur 


Ending region + zone for level 2 errors 
to occur 


Input YES unit, nominal value - 1 
{- value indicates do not read) 


Input Sig. Ext. unit, nominal value = 2 
{- value indicates do not read) 


Input CAMS unit, nominal value = 4 
{- value indicates do not read) 


Case no. of substrata historical file 


SUBHST ID for current record 
Countr y 


IZONE 


ISTRAT 


Region 


Zone 


Strata 






























Function 


COMMON STORAGE ALLOCATION 


1*^ ■ vf* Ip* 
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Name F LA G 


of - 



Description 


SUBHST ID for ear rent record 
- Sab s tr a ta 


Previous SUBHST record ID 
I Region 



^0 indicates a level 3 error has occurred 
and job is abandoned 


Count of no. of segments in a zone 


1 - YES error, 2 - CAMS error, 3 - Sig, 
Ext, error, error type 


4 0 indicates a level 2 error has occurred 
for a particular input - YES input data 


CAMS error input data 



extension input data 


=0, no level 2 error can occur 
7^0, SUB HS T ID in range for level 2 


=0, read CAM inputMile 


4Q, don't read 
YES input file 


Sig. Ext. input file 


Count on no. of errors which have occurred 


-0, print card image for this error 
40 t card image already printed 


=0, end of file has not occurred on SUBHST 
*0, EOF has occurred 


Substrata history file unit no. = ■ 




































I 






Function 


COMMON STORAGE ALLOCATION 
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Name FLAG 


Size 


Pag e 3 o f 4 



Description 


Error code no. as defined in Section 5. 2, 
Problem Description 


I No. of records read from SLJBHST file 


No. of YES data group records read in 


No. of CAMS data group records read in 


No. of Sig. Ext. group records read in 


No. of records written on YESERR file 


No. of records written on CAMS error file 


No. of records written on Sig. Ext. file 


Seg. ID on SUB LIST file with no CAMS 
input rec. for use by ERRPRO 


YES error output unit = 11 


CAMS error output unit = 8 


I | Sig extension output unit = 9 


Previous ID for CAMS input file 


Sym- 

bol 


Units 





ISEG2P 














COMMON STORAGE ALLOCATION 
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Name FLAG 


Size 


Page 4 of 4_ 


Function 


Ddj len- 


For- 

mat 


Description 


Units 


IREG1P 1 


1ZON1P 1 


Previous ID for Y ES in put file 


IS TRIP I I 


Previous ID for Sig. Ext. input file 


ilevel I 1 


= 1 - highest ID level chg substr. 
= 2 - highest ID level chg strata 


- highest ID level chg zone 

- highest ID level chg region 


for SU 


1 - constant for substrata on down 
=2 - constant for strata on down 


- constant for zone on down 

- constant for region on down 


For Sig. Ext. same meaning except 0 
means none; 3 - zone; 4 - region 








COMMON STORAGE ALLOCATION 
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Name Y ESIN 


COMMON STORAGE ALLOCATION 


Size 


Function Contains data for one YES input/ 


output group with = ID 
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Pag e 1 of. 



Diren- For- 

sion mat 


Description 


Unit 

bo^ 


Country 


Region 



YIELD - See Problem Description 


Year, month and day for six error 
truncation dates; see Problem Description 


YIELD bias error for dates; see Problem 
Description 



YIELD for YESERR file 


Truncation date in Zulu for YESERR file 


YIELD bias for YESERR file 



Quintal 


Hectare 


Quintals 


Hectare 




































Function Detail record from substrata historical 


ue; aiso 


Description 


Name 

Dimen- 

sion 

NSEG 

1 

IDSEG 

150 

1GRP 

1 



No. of sample segments in this substrata 


List of segment no's. 0 terminates. 



PWHTH 


AREA 


PWTHT 


NAGR 
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PART III 

LIST OF SUBROUTINES AND SUBROUTINE 


CALL STRUCTURE 



Name 

SEE 

SEECON 

YESD 

SIGD 

CAMD 

SEGPRO 

ERRPRO 

LFPA 
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LIST OF SUBROUTINES IN SEE 


Function 

Main control routine for the program. Performs initialization 
and wrapup functions. 

Reads the SUBHST file and controls the reading and process- 
ing of the three input data files. 

Reads a YES data card group, checks the data for errors and 
writes a record on the YESERR file. 

Reads a signature extension ID group and checks for errors 
and writes the record on the CAMERR file. 

Controls the reading of CAMS input data groups for all seg- 
ments with = ID to SUBHST file ID. 

Reads one CAMS error input ID group into CAMSIN COMMON 
and checks it for errors. 

Controls the processing of all errors, prints error messages 
and card images according to error type. 

Given month, day and year, computes Zulu date. 
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PART IV 

SUBROUTINE DESCRIPTIONS 
AND FLOWCHARTS 
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\ ' 

SEE MAIN ROUTINE 

Purpose: 

Provide main control for the SEE program. It initializes data, 
reads in control card, lists and checks it, checks for correct substrata 
historical file to be mounted, calls the input file processing routine 
SEECON and prints job status information. 



MAIN ROUTINE FLOWCHART 
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INITIALIZE 
FLAGS- I EATER, 

IFATEY, IFATEC, ISIGR, 
I FATES, ICAMR, 

IPRINT, IYESR, 

IEFSB, ITYPE, IFILT1, 
IFILT2, TO 0, 

CTRS - I ERR, I2SGC 
ISUBCT, IYSCT 
ICMCT, ISGCT, 

IYSERC, ICMERC 
IS I GEC TO 0 


CLEAR ID DATA 
FOR SUBHST- 
IREGP, IZONEP 
AND I STRAP, = 0 
ALSO PREVIOUS ID FOR 
3 INPUT CARD SETS 


CALL SEECON TO 
PROCESS THE FILES 


PRINT STATUS 
COUNTS 


PRINT JOB IS 
COMPLETE/ INCOMPLETE 
MESSAGE 


FOR EACH + 

IYESU, ISIGEX 
AND ICAMER 
WRITE A HEADER 
REC. ON THE 
CORRESPOND. FILE 


READ IN CONTROL 
CARD AND LIST IT 


IF IDTOS AND IDFRS 
= 0, SET IDTOS 
= TO ALL BINARY 1's 


DETERMINE SETTING OF 
IFATEY, IFATEC 
I FATES 


1 OR MORE 4 0 


PRINT FATAL ERROR 
MESSAGE WITH NAMES 
OF BAD FILES 


CHECK IDFRS 
TO BE > 


REWIND 

ISBHS AND 

THE 3 CARD FILES 


SET IERCDE = 3 


READ HEADER 
RECORD 


CALL 

ERRPR 


CALL ERRPRO 


CHECK FOR 
CORRECT FILE 
AND CASE 












SUBROUTINE SEECON 




A. - . . 
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Purpose: 

This subroutine reads the substrata historical fil \ and controls the 
reading of the three input data files via subroutine calls. It determines 
when and if a particular input processor subroutine is to be called. 

Input: 

FLAG COMMON 

IYESU, ISIGEX, ICAMER, ICTRY, IREG, IZONE, ISTRAT, 

ISUB, IREGP, IZONEP, ISTRAP, IFATEY, IFATEC, IFATES, 
IEFSB, ISBHS, ISUBCT, IDFRS, IDTOS 

SUBHIS COMMON 

NSEG, IDSEG, IMXSEG 

Output: 

FLAG COMMON 

ICTRY. IREG, E, ISTRAT, ISUB, IZSGC, IRANGE, LZONE, 

LSTRAT, IPRINT, IEFSB, IERCDE, ISUBCT 

Linkage : 

CALL SEEPRO 

Subroutines Used: 

CALL YESD 
CALL CAME) 

CALL SEGD 
CALL ERRPRO 

Local Variable Description: 

IFIRST - First time flag 

^0 - first time, =0 - not first time 

Processing: 

See flowchart. 
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SUBROUTINE YESD 


Purpose: 

To read a YES record group, list the card images on option, check 
the data for field errors, check for correct order, determine if current 
YES ID i 3 compatible to ID of SUBHST, write a record on the YESERR 
file and indicate when processing for this file is complete. This routine 
will allow duplicate data groups for any ID level to be entered only once. 

Input: 

FLAG COMMON 

ICTRY, IREG, IZONE, ISTRAT, IFATEY, IYSCT, IYSERC, 
ILIST, IYESR, IYESER, IYESU, IREGIP, IZON1P, ISTR1F 

YESIN COMMON 

IC TRY 1 , ISTRA 1 , YIELDI, IERDTE, BIASYI, SIGYII 

Output: 

YESIN COMMON 

ID and YIELD, ITRDTE, BIASY, SIGYIE 
FLAG COMMON 

I TYPE, IPRINT, IERCDE, IYSCT, IYSERC, IYESR, IREGIP, 
IZON1P, ISTR1P 

Linkage: 

CALL YESD 
Subrouitnes U sed: 

CALL LFPA (day, month, year, dam, days) 

Given day, month, year, compute days in Zulu. 

CALL ERRPRO 

Local Variable Descriptions: 

ISEQP Previous sequence no. for cards 

1SEQ .Current card seq. no. 

ISET Card set no, should 5 5 

IDTEM(6) Temporary Zulu IERDTE loc. 

Processing: See flowchart. 


IREG1 , ETC 
TO IREG1P. 




























SUBROUTINE SIGD 
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k 


Purpose: 

This routine reads a signature extension record group, lists the 
card images on option, checks the data for field errors and correct order. 
It determines if SIG. EXT. ID is compatible to SUBHST ID, writes a 
record on the SIGEXT file and indicates when processing for this file is 
complete. This routine will allow duplicate data groups for any ID level 
to be entered once. 

Input: 

FLAG COMMON 

ICTRSV, IREGSV, IZONSV, 1FATES, ISGCT, ISIGEC, ILIST, 
ISIGR, ISIGEX, ISIGE, ILEVEL, IFILT2, IZSGC, IREG3P, 
IZON3P 

SIGIN COMMON 

1C TRY 3, IREG3, IZONE3, plus all signature extension data. 

Output: 

FLAG COMMON 

ITYPE, IPRINT, ISGCT, ISIGEC, IREG3P, IZON3P, IERCDE, 
ISIGR 

SIGIN COMMON 
All data. 

Linkage : 

CALL CAMD 
Subroutines Used: 

CALL ERRPRO 
Processing: 

See flowchart. 

Local Variable Descriptions: 

ICTRYT, IREGT, IZONET - temporary ID locations. 
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SUBROUTINE CAMD 

Purpose: 

To control the reading of CAMS input data groups for all segments 
with = ID to SUBHST file. Cheek for data to be in order and not missing; 
also checK for ID compatibility with SUBHST file (accounting for multilevel 
constant data). Make sure there is a segment for each segment in SUBHST 
file substrata record. Write a record on the CAMERR file and indicate 
when processing for this file is complete. 

Input: 

FLAG COMMON 

ICTRY, IREG, IZONE, ISTRAT, IFATEC, ICAMR, ICMERC, 
ILEVEL, IFILT1, ICAME, ILIST, ICAMER, IREG2P, IZON2P, 
ISTR2P, 1SUB2P, ISEG2P 

CAMSIN COMMON 

ICTRY 2, IREG2, IZONE2, ISTRA2, ISUB2, ISEG2, and all 
application data 

SUBHIS COMMON 
NSEG, 1DSEG 

Output: 

FLAG COMMON 

IPSEG, ITYPE, IERCDE, ICMERC, ICAMR 

CAMSIN COMMON 
All data 



CALL CAMD 



28234-6027-RU -00 
Page 303 


Subroutines Used: 

CALL. SEGPRO (IND, IOPT) to read in 1 data group for a segment 

and do fieid/seq check. 

IND =0 = SUBSTRA ID 

9*0 4 SUBSTRA ID or EOF 

IOPT =0 - Full process with ID change 
^0 - Ignore data with ID change 

CALL ERRPRO 

Processing: 

See flowchart. 

Local Variable Descriptions: 

INDSEG (150) - Indicator array 1 to 1 with segment list in SUBHST 
record - 0 — > no match on CAM input; ^0 - means 
seg ID matched. 
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SET HYPE 
» 2 

INITIALIZE 
1NDSEG ARRAY 
TOO 


SET I * I 
FOR NSEG 
gYr 


SUBROUTINE CAMD FLOWCHART 
20 


HOVE 

IDSEG(t) 

TO 

ISEG2 


IF ILIST 
» 2, PRINT 
RECORD 
CONTENTS 
FOR CAHERR 


USE SUBHST 
10 EXCEPT 
ISEG2 
WRITE 
RECORD 
FROM AMS IN 
COMMO I TO 
I CAME 

A03 II TO ICMERC 


''IS ILEVEL^S 
» IFILTV 
MEANS THAT 
SUOKST FILE 
ID CHANGED AT 
LEVEL » CAMS 
CONST VALUE 
LEVEL/'' 


'IS IFATEC V. YES 

S> 0 


IS NSEG 
- 0 

Tno 


'TS ICAHR 


CALL SEGPRO 
WITH IOIT * 0 
TO READ IN 
1 CAMS GROUP 


r 010 AN EOF^ 
OCCUR - ICTRY2 
V. ■ 'III! > 

TNO 


WRITE TRAILER 
REC, EOF AND 
REWIND ICAHE 


BACKSPACE 
I REC 
ON ICAMER 


SEARCH IDSEG 
FOR HATCH 
WITH ISEG2. 
STORE 1 IN 
INDSEG IF 
HATCH OTHER- 
WISE CALL 
ERRPRO WITH 
IERCDE ■ 15 


ACCORDING TO 
HIGHEST ID 
WITH 0 VALUE 
IN IREG2, ETC. 
SET ISEGZ - 0 



1 

1 

CALL 

JL 

ERRPRO 


425 I 

IREG2 VS IREG2P 

SET 

DOWN TO 1ST ► 

IERCDE 

0 ID LEVEL 

- 2 

.TO BE ». < OR » / 



MOVE IREG2, 

ETC INTO IREG^P 
ON DOWN TO ISEG2P 


v/ IREG^N. 
DOWN TO 

IFILTV LEVEL « T 
<0R» TO 1REG2 


(EXTRA REC) 
CALL ERRPRO 
WITH IERCDE 
• IS 


SET ICAHR 
JLO 


ILIStN 

^Ty^ 

I PRINT CURRENT 
CAMS REC 


USE SUBHST ID 
EXCEPT ISEG2 
WRITE REC. ON 
ICAHE ADD 1 TO 
ICHERC 


ORIGINAIi PAGE IS 
OF POOR QUAIOT 


SET IERCDE 
. TO 

CALL ERRPRO 
IF NSEG t 0 







■ r *- * ^ ' j f ..' ■ ; | y*?v 
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SUBROUTINE CAMD FLOWCHART (CONTINUED) 


ADD 1 
TO I 


/ CHECK N 
FOR IND^EGU^ 


IDS EG 
= ID 


SET 1=1 
LOOP ON 
NSEG 


SET I ERODE 
= 11 

CALL ERRPRO 


BACKSPACE 
1 RECORD 
ON ICAMER 


ISEG2P 


SET IERCDE 
= 15 

CALL ERRPRO 


EXECUTE 

SAME PROCEDURE 
AS AT 300 
TO SKIP RECORDS 


O 


m 
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SUBROUTINE SEGPRO (IND, IOP) 


Purpose: 

To read 1 CAMS error input ID group into CAMSIS COMMON, 
determine if new ID has been read in; if so, set IND 4 0. If not, check 
order and completeness within group and perform field checks. Print 
card images of group if ILIST 4 0, 

Input: 

FLAG COMMON 

ILIST, IREG2P, IZON2P, ISTRA 2P, ISUB2P, ICAMER, 

ICMCT, ISEQ, ISET 

CAMSIN COMMON 
All data 

Output: 

CAMSIN COMMON 
All data 

FLAG COMMON 

IPRINT, IERCDE, ICMCT 

Linkage: 

CALL SEGPRO (IND, IOPT) 

On exit - IND = 0 No change in ID sort field 
IND 4 0 Change in ID sort fields 

On entry - IOPT = 0 Means an initial substrata call; full process 

if change in ID 

IOPT 4 0 If ID change, set IND 4 0 and exit immediately 

Subroutines Called: 

CALL ERRPRO 
Processing: 

See flowchart. 
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SUBROUTINE ERRPRO 


Purpose: 

To process errors by category; setting status, initialing wrapup, 
printing messages and printing card images according to the category. 

Input: 

FLAG COMMON 

IPSEG, IERR, IERCDE, IPRINT, I TYPE, IRANGE, ILIST, 

IYESER, ICAME, ISIGE, ICTRSV, IREGSV, IZONSV, ICTRY, 

IREG, IZONE, ISTRAT, ISUB 

All data in CAMSIN and S1GIN COMMONS and all data except YIELD, 
ITRDTE, BIASY and ISGYIE in YESIN COMMON. 

Output: 

FLAG COMMON 

IFATER, IFATEY, IFATEC, IFATES, IERR, IPRINT, IYESU, 
ISIGEX, ICAMER 

Messages as described in problem description: 

DATA PRINT OUT FOR ERROR CODES 2, 10-19 ASSUMING ILIST = 0, 
OTHERWISE JUST MESSAGE PRINTS. 

Prints: 

ICTRY — IREG --- IZONE ISTRAT ISUB ISEG 

Message: 

DATA PRINT OUT FOR ERROR CODES 20-28 ASSUMING ILIST = 0, 
OTHERWISE JUST MESSAGE PRINTS. 

ICTRY IREG IZONE ISTRAT ISUB ISEG card image 1 N 

' ' card image 2 N 

card image n N 

Linkage: 

CALL ERRPRO 
Subroutines Used: 

Itone. • ; 

Processing: See flowchart. 


SUBROUTINE ERRPR0 



BASED ON ITYPE 



SET I PRINT 
t 0 


- ^ 

PRINT IMAGE , 
OF CARD GROUP 
BA SED ON TYPE 





F 
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RT 



■■■■* 


ms 


RETURN 
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SUPPLIED UTILITY ROUTINES 

Routine Day 

Call Day (IYMD, IDAY) 


Given IYMD (3) where 

IYMD ( 1) 

IS Day No. 


IYMD (2) 

IS Month No. 


IYMD (3) 

IS Year No. 

Compute year day no. 

in IDAY 



Routine PIMOD 

Call PIMOD (A) 

Convert ±A in radians to an angle 0-2tt 


Routine SOL (Entry ALPHA) 

Call ALPHA (IF LAG) 

For emphemeris usage as called by hector 

computes ALPHAM and ALPHAT and IFLAG = 1 

Routine PAGER (Entry Eject) 

Call PAGER (NLINES) 

Updates line count in NLINE with- NLINES 

NPAGE = 0 causes page to be restored prior to print. 

NPAGE - page no. 

HEADER- 80 char. 20A5 
ICASE- case no. 

KO - 6 print unit 

INMAX is max no. of lines allowed 

Initially NLINE should be set > UN MAX and NPAGE = 0 
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SUPPLIED UTILITY ROUTINES 
(CONTINUED) 





Call EJECT (N LINES) 

Causes page to be restored automatically and then prints headers. 
Routine CLDAY 
Call CLDAY 

Given IDA Y- DAY no. of the year compute in LMO-the month 
and in LDA the day no. 

Need: IYEAR = 0 - Leap Year, 4 0 not Leap Year 

Routine KEPLER 

Call KEPLER (XM, XECC, XE, ERROR) 

Given XM - Mean anomaly, XECC - eccentricity 
Compute: E-eccentric anomaly error = 0 means OK 

Routine LFPA 

Call LFPA [flDA, LMO, LYR, ALFGM (can be dummy), DAYS. 

Given: FLDA - day of month no. , LMO - month no. , 

LYR - year no. compute ALFGM - right ascension and 
DAYS - Zulu day no. 

Routine DEGMOD 


Call DEGMOND (RAD, IDEG) 

Given: angle rad in radians store the angle in deg. , min. , sec. , 
in IDEG(i) - (3). 


Routine FZULU 

Call FZULU (IOATE, IOUT) 

Given Zulu date in 1DATE, compute year, month and day in 
IOUT{l) - IOUT(3). 

• ' ■ 

Routine RDMIA 

RDMIA(FL, U) 

Given double precision random no. seed in FL, comoute random 
no. U (0 - i ) based on uniform distribution. 


/"> Call 

C 
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PART V 


SUBROUTINE LISTINGS 


p 


t LT 


BLKDAI » |.,7AO*0'2-» 5«75B 


* 1 


000001 
000002 
000003 
000004 
000005 
0000 06 
000007 
00 00 OH 
000009 
nodpio 
0001)1 1 
OOOO 12 
000015 
0000 1 fl 
oooo 15 

oono 16 
oooo 1 7 
00 0 0 16 
OOOO I 9 

ouon?o 

000021 

000022 

000023 

000024 

oooo?S 


BLOCK DATA BLOCK 

COMMON /MAC/ . HAC 

MC TlfSV. IMF i.SVf l/ONSV*|NPt tOUT»!CASE« II ISTf I DM.’ St 2) • TyTOSlP) * fl AC 

21 YtliUf |SIGtX« ICAMFPf ICSFSNf IClHYf !HM»f IllVEf ISTKATf ISUBf IRfcGPf M AC 

3170M f. TSTK AK* 1C Atf W»T?St.C»HVPCf If ft Ut. IF ATLC.U A IPS t II ANGE # f» AC 

ai-CAt«<»|YtSH»lSlt;il»lf N9f IPPlMflFlSHtlSHMSf IFKClJlflMJbCI* K AC 

51 y sr i . i r <ir 1 1 ist.c i , i ysf nr ♦ t c*t»c » I s icir « ipstc, m sm< f i c Ait • mac 

6I5ICK.l ttLF.2Pt l/tKJ2Pf lS Tn2P» ISU«)?P*IStC27*t lKFClPtl70ta i P»|5TKlP« M AC 
7IKIF3P, UON5P. 11-CVfcLftf ILMf If IL12 H AC 

HtILFVrs 

eiJM^lJN /5MUH1 S./ 5!'bHlS 

It.StCf Ii»SfcC(lSOl,liCKPf7*KMfllfAK7 AfPW?MTfNAbR*NAl*DtLPW»l)tLPM» 51'HHIS 

PCVt-l) t({A»1f (?) . *r.i>f f JNX5F(. 51'bKIS 

COHMOSJ /trstlf/ YfSTS 

fir I tt¥ 1 , IKK li'l . I/I'HF If ISfPA t f YIFLOIf lEHD]E(3f 6) t Ul ARY I (61 1 SItttI 1 (6) f Y't SIN 
2H1 Lt>f | iKPlf ( 6) . l>! APT (6Vt Sl'CY I'fc(6) Yf 5lM 

CtlKMU'i /Cf MR IN/ CAMSIN 

tilClHYP, l'KMtPf I/ONF/f lSlPA2f !SUB?t ISf G2tPHH( « > f P1*M(4 J fP«0(fl ) f Cft>!S|M 

2bW»('H f'tl'i0(4) fPlr,hH'(9)r5lt>WM(4>f SICpO(«)f BPKC41 tSlCPKCfl) t AMSJM 

CRilMUt. / 5 1 1> I N / ‘ J>TgT?4 

ln:iKY3,iHn;3, [/ONr3fbiw,u?*f3K.iMb>tMr,2h'(6)fbiMfb2HfSlt;tN(6>* stotu 
2SIU2M f 6> tH tOf H2O,SlG10(6) f slb?0(6) till f«?f sir. I (b) f SIR/ (ft) STGIfJ 

DATA I Y7 s u f I G A MCK . I Slr.t X f IMP f 1 0 tl I f 1 SbH 5 f I Yt StP f I C A«r , 1 6 1 bE bl OCK 

I / 1 f 4 « 2 , 5 1 6» 3 1 1 1 1 U f 9 / M OCK 

LCD 431 uCk 



l 
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EIT CAMD«lf760«26f 98971 


<*00001 
000002 
000003 
oo no no 
oooons 

00 00 Ob 
000007 

oooooo 

000009 

oooo to 
oono 1 1 
oo no 12 
0.0 00 I 3 
000019 
000(115 
0000 l b 
no oo 17 
000015 
0 00019 
000020 
000021 
0000:22 
0000,21 
00oo29 
000025 
0000?b 
000 02 7 
no no 2 B 

00002-9 
000030 
000031 
0,000 32 
000031 
000030 
000033 
00003b 
000037 
000030 
000039 

o on o no 
oooooi 
000002 
oooooi 
000099 
000093 
00009 b 
00009/ 

oooo«« 

0011099 
OOOO’tO 
000051 
000052 
000051 
000059 
000035 
000036 
000037 
00 OO'tl 


c 

G 


10 


15 


• cnNTMf!^S^THE^9E(iDTNG OF CAMS INPUT DATA GROUPS FOR Alt SEGMENTS 
HUM s 10 TO SU»HST FTUF It). 

txr rw f 2 .TKr G2 !r/0UE 2.isTo a 2, rsub? ♦ isfi,?,p*.wt 0 ) •?*"*!£• „ v 

2UW»*f 9) t 1IKM(9) t»wU(9) *S 1 r.t*H ( <1 ) 1 SiliHHl #). tS I'KoO ( <• ) fljPN ( 9 ) fSlPPWtO) 

1 KT»SV * TUFUSV » I/ONSV t INPt I0U1 * V- ASE »ll 1ST * 1DFFS ( 2) » TO T US12) • 

2IYESU • iSlGfcX* IcariER • IrSFSH* lCTRY » IKEG» l?UNL » IS! RAT t ISUbflRtGPt 
3 r/ (1*41.1* «TSTI*AP*If ATMtU r»l»C • T 1 YPF » TFAlf Y « IF ATtC • If A 1 F S * I«At4Gr » 

9 1 F AMti • i YtSK* iSl'SHtlFkRf IPWINI* IFFSUt ISbHS . IFF'COF ? Ib'UtCl • 
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